source: applications/trunk/LFC/parser/samples.lfc @ 3802

Last change on this file since 3802 was 3802, checked in by orlov, 13 years ago
  • Small fixes, !GetRAST, samples.
File size: 443 bytes
Line 
1dec in: List*Node -> Bool;
2var n1, n2: Node; l: List;
3def in (n1, n2) = if eq(n1, n2) then "True" else "False";
4    in (n1[]","[]l, n2) =  if eq(n1, n2) then "True" else in(l, n2);
5
6dec merge: List*List -> List;
7var n: Node;
8    l1, l2: List;
9def merge (n, l2) = n[]","[]l2 ;
10    merge (n[]","[]l1, l2) = scat(n, ",", merge(l1, l2)) ;
11
12/* (x-1) * (x-1) */
13dec Sq_Sub1: Num -> Num;
14var x: Num;
15def Sq_Sub1 (x) = mul(y, y) where y = sub(x, "1");
Note: See TracBrowser for help on using the repository browser.