2007-07-14から1日間の記事一覧
アルファベットの繰り上がり どう書く?org via Haskell はスケるよ - アルファベットの繰り上がり module Main (main) where alphaList = let alphas = ['A'..'Z'] in (concatMap (\x->[x,' ']) alphas) ++ (concatMap (\x ->concatMap (\y -> [x,y,' ']) a…
アルファベットの繰り上がり どう書く?org via Haskell はスケるよ - アルファベットの繰り上がり module Main (main) where alphaList = let alphas = ['A'..'Z'] in (concatMap (\x->[x,' ']) alphas) ++ (concatMap (\x ->concatMap (\y -> [x,y,' ']) a…