我正在學習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,它給了