2012-07-16から1日間の記事一覧
特に何もなくパターンマッチでやってます。 メモ化はまだ勉強中。 lcsLen :: (Eq a) ⇒ Int → Int → [a] → [a] → Int lcsLen _ 0 _ _ = 0 lcsLen 0 _ _ _ = 0 lcsLen i j seq1 seq2 | lastSeq1 ≡ lastSeq2 = 1 + lcsLen (i - 1) (j - 1) nextSeq1 nextSeq2 | …
特に何もなくパターンマッチでやってます。 メモ化はまだ勉強中。 lcsLen :: (Eq a) ⇒ Int → Int → [a] → [a] → Int lcsLen _ 0 _ _ = 0 lcsLen 0 _ _ _ = 0 lcsLen i j seq1 seq2 | lastSeq1 ≡ lastSeq2 = 1 + lcsLen (i - 1) (j - 1) nextSeq1 nextSeq2 | …
