29 lines
501 B
Text
29 lines
501 B
Text
|
// This is a test
|
||
|
|
#include pv.sdf
|
||
|
|
|
||
|
|
proc (1) = calc(local__row, fin);
|
||
|
|
if local__row;
|
||
|
|
nr = local__row;
|
||
|
|
else;
|
||
|
|
k = colsf(fin);
|
||
|
|
nr = floor(minc(maxbytes/(k*8*3.5)|maxvec/(k+1)));
|
||
|
|
endif;
|
||
|
|
retp(nr);
|
||
|
|
endp;
|
||
|
|
|
||
|
|
s = "{% test string %}";
|
||
|
|
|
||
|
|
fn twopi=pi*2;
|
||
|
|
|
||
|
|
/* Takes in multiple numbers.
|
||
|
|
Output sum */
|
||
|
|
keyword add(str);
|
||
|
|
local tok,sum;
|
||
|
|
sum = 0;
|
||
|
|
do until str $== "";
|
||
|
|
{ tok, str } = token(str);
|
||
|
|
sum = sum + stof(tok);
|
||
|
|
endo;
|
||
|
|
print "Sum is: " sum;
|
||
|
|
endp;
|