我正在学习OCaml的,现在,我做到这一点后, type aexp =
| Const of int
| Var of string
| Power of string * int
| Times of aexp list
| Sum of aexp list
let rec diff : aexp * string -> aexp
=fun (aexp,x) -> match a
我想写一个函数,查找给定的数字n是否是一个完美的正方形。这里是我的尝试: local
fun perfect_square_iter x z = let val sqr = z * z in
case (x,z) of
(sqr,_) => true
| (_, 0) => false
| _ => perfect_square_iter x
与数据类型列表实现multiFilter datatype 'a Multilist =
Node of 'a list
| List of 'a Multilist list;
fun isGreaterThen x y = y > x;
fun multiFilter f (List([])) = []
| multiFilter f (List(m::multi
我想写一个函数来从另一个列表中删除列表。 ''a list -> ''a list -> ''a list
这是我到目前为止有: fun delete _ [] = [] |
delete (h1::t1) (h2::t2) =
if h1=h2
then t2
else h2::delete (h1::t1) t2;
我使用MoscowML,它给了