File: code.mpi

package info (click to toggle)
mathpiper 0.0.svn2556-2
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 7,416 kB
  • ctags: 2,729
  • sloc: java: 21,643; xml: 751; sh: 105; makefile: 5
file content (15 lines) | stat: -rw-r--r-- 313 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
10 # ExpressionDepth(expression_IsFunction) <--
[
  Local(result);
  result:=0;
  ForEach(item,Tail(Listify(expression)))
  [
    Local(newresult);
    newresult:=ExpressionDepth(item);
    result:=Max(result,newresult);
  ];
  result+1;
];
20 # ExpressionDepth(_expression) <-- 1;
UnFence("ExpressionDepth",1);