2011-10-08から1日間の記事一覧
やってみた。Haskellで。 import Control.Monad (forM_, liftM) import Text.Printf (printf) import Data.List (unfoldr) f :: Integer -> Integer -> (Integer, Integer) f 0 0 = (2, 1) f 0 1 = (1, 0) f 1 0 = (1, 1) f 1 1 = (2, 1) count :: Integer -…