File: code.ys

package info (click to toggle)
yacas 1.9.1%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 4,288 kB
  • sloc: cpp: 14,980; python: 401; makefile: 161; sh: 118; xml: 78
file content (18 lines) | stat: -rw-r--r-- 259 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 


Array'CreateFromList(list):=
[
  Local(result,i);
  result:=Array'Create(Length(list),0);
  i:=1;
  While (list != {})
  [
    result[i]:=Head(list);
    i++;
    list:=Tail(list);
  ];
  result;
];

Array'ToList(array):= (array[1 .. Array'Size(array) ]);