"新しい"フィボナッチアルゴリズムを開始しますが、機能しません。これは非常に簡単です: --fiblista 0 n = [0]
--fiblista 1 n = [1]
fiblista a n
| a <= n = (0:1:tail, ((fiblista!!d)+(fiblista!!c))) fiblista a+1 n
where d = a
私はフィボナッチ数列を生成する関数があります。 let rec fib n =
match n with
| (0 | 1) -> 1
| x when x > 0 -> (fib (x-2) + fib (x-1))
| _ -> raise (Invalid_argument "Negative value supplied to fib");;
が