haskellで魔方陣全くもってダサイかつ遅い permutationが遅いのもあるんだろう。 import List main=print $ filter eql $ permutation [1..9] permutation (a:[]) = [[a]] permutation a = concat $ zipWith (\x y->map (x:) (permutation (delete x y))) a …

なんて事だ evalの仲間の applyが使えるorz >>(apply + '(1 2 3 4 5)) =>15わからなくてfold使ってたよ。 >>(fold + 0 '(1 2 3 4 5)) =>15

以下を実行するだけ。 まあ、F5で実行するって慣れると便利（笑 $ cd .emacs.d $ wget http://www.iro.umontreal.ca/~monnier/elisp/haskell-mode-2.4.tar.gz $ tar xzvf haskell-mode-2.4.tar.gz $ mv haskell-mode-2.4 haskell-mode $ cat >> .emacs ;;for…