Haskell
日記のネタによさげなものがあったので書いてみる。 とりあえず何も考えずに書いてみたバージョン。 import System import Listmain = do args print $ h $ read (head args)h :: Int -> Int h n = let gs = concatMap (\x -> [g(x)]) [1 .. n] in case elem…
日記のネタによさげなものがあったので書いてみる。 とりあえず何も考えずに書いてみたバージョン。 import System import Listmain = do args print $ h $ read (head args)h :: Int -> Int h n = let gs = concatMap (\x -> [g(x)]) [1 .. n] in case elem…