13. コ ー ド 例 ( 階 乗 )
factorial n =
let itr n p =
if n >= 1 then itr (n - 1) (p * n)
else p
in itr n 1
;
print $ factorial 10; -- 3628800
14. コ ー ド 例 ( オ ブ ジェ ク ト 指 向 )
Person = Class:new:extends Object;
Person!new $ this name ->
Class.proto.new this name;
Person!ctor $ this name ->
const this $ this!name name;
Person.proto!printName $ this ->
print this.name;
!
alice = Person:new "Alice";
alice:printName; -- Alice