Concurrent Clean : CleanJ : 次のプログラム
これが動作するようにしてみます。
module InfList import StdEnv Start = my_take 10 (my_from_o 0) my_take 0 _ = [] my_take n [x:xr] = [x:my_take (n-1) xr] my_from_o n = [n: my_from_o (n+1)]
これが動作するようにしてみます。
module InfList import StdEnv Start = my_take 10 (my_from_o 0) my_take 0 _ = [] my_take n [x:xr] = [x:my_take (n-1) xr] my_from_o n = [n: my_from_o (n+1)]