ひきつづきmodule Sample where タプル func11 = (1,2)func12 = (1,2,3,4,5)func13 n (a,b,c,d,e) = case n of 0->a 1->b 2->c 3->d 5->e 型 func14 :: Int -> Int -> Int func14 x y = x * y 引数の減った関数 func14 1 2 (func14 1) 2

module Sample where 関数定義 foo x y = x + y hoge = 2 分岐 引数パターンマッチング boo 1 = "a" boo 2 = "b"func0 0 = 1 func0 n = n * func0(n-1) ガード func1 a b |a && b == 1 = "0!" |a = "1!" |otherwise = "2!" if func2 n = if n == 0 then "OK"…

ちょっとだけいじってみる。 簡単なプログラムを書く-> 実行して結果見る っていう流れができないと、勉強にもならない。 func1 = 2 とかhugs上で書いても怒られちゃって関数定義すらできない。 なんでやねん、、、と思っていたらhugsでは対話的に関数定義が…

指輪をしていない指が軽くて淋しい。

xxx