【激突】関数型言語 VS オブジェクト指向言語2at TECH【激突】関数型言語 VS オブジェクト指向言語2 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト534:533 12/04/25 22:20:37.27 instance Show Lattice where show (Lattice m n v) = concat $ snd $ L.mapAccumL (\i x -> if i == n-1 then (0, show x ++ "\n") else (i+1, show x)) 0 $ V.toList v lattice xss = Lattice n m $ V.fromList $ concat xss where n = length xss m = length (concat xss) `div` n > updateBoard $ lattice [[0,1,1,1,0], [0,1,0,0,0], [0,0,1,0,0], [0,0,0,0,0], [0,0,0,0,0]] # 出力 01100 01010 00000 00000 00100 535:デフォルトの名無しさん 12/04/26 20:54:15.37 (_, _) (`mod` 2) (\x _ -> 536:デフォルトの名無しさん 12/04/26 20:56:38.97 最近Lispさんを見かけないけどもう廃れちゃったの？ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch