【激突】関数型言語 VS オブジェクト指向言語2at TECH【激突】関数型言語 VS オブジェクト指向言語2 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト545:デフォルトの名無しさん 12/04/27 14:36:04.79 javascriptで書いてみた。破壊的操作有りで。 ソースの長さ汚さは勘弁してください。 http://ideone.com/xNY9J ※↑は5秒制限のため500回でなく1回だけ lg.life(500); console.log("life500:" + (new Date()-st) + " msec"); に書き換えてから windows版node.js(pen4 2.6GHz)でやったら30秒くらいだった。 >node.exe life.js 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 --------------- 0,1,1,0,0 0,1,0,1,0 0,0,0,0,0 0,0,0,0,0 0,0,1,0,0 --------------- create :39 msec life500:29794 msec 546:デフォルトの名無しさん 12/04/27 20:27:45.31 てきとーにCで書いてみた 500回はさすがに秒数制限に引っかかったけど、50回で0.69秒 http://ideone.com/a7mH5 547:デフォルトの名無しさん 12/04/27 22:35:14.09 F# 2.6GHz Core2Duo 500世代で2分57秒 let life (field : int[,]) = let height, width = field.GetLength 0, field.GetLength 1 field |> Array2D.mapi (fun y x c -> let s = seq { y - 1 .. y + 1 } |> Seq.sumBy (fun y' -> seq { x - 1 .. x + 1 } |> Seq.sumBy (fun x' -> field.[(y' + height) % height , (x' + width) % width])) match s, field.[y, x] with 4, 1 | 3, _ -> 1 | _ -> 0) 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch