一直在努力。不知道从这里去哪里..
我需要定义一个接受整数并返回从0到n-1的数字的无限重复列表的函数。
cycle n =
let aux1 v1 n
|(v1 == n) = v1 : (aux1 0 n)
| (v1<n) = v1 : (aux1 (v1 + 1) n)
in aux1 0 n
cycle' n = [0..n-1] ++ cycle' n
但是我必须添加一些字符,以便堆栈溢出可以接受这么短的答案:)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句