TudbuT/mkfunction
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

update syntax to reflect change in spl

Browse source
This commit is contained in:
Daniella / Tove 2024-09-08 13:04:31 +02:00
parent ca563886ec
commit 0704f4cb29
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
mkpolynomial.spl
View file

@ -112,8 +112,8 @@ func main { status | with args ;
vardecl concat vardecl concat
")" concat ")" concat
"simplify(f(x))" "simplify(f(x))"
] StreamTypes:cmd:create:read-to-end <{ 128 } _str =giac-out ] StreamTypes:cmd:create:read-to-end<128> _str =giac-out
("," giac-out:split:last) dup _array:sub <{ _array:len 2 - 0 swap } _str println ("," giac-out:split:last) dup _array:sub< _array:len 2 - 0 swap > _str println
} }
2 stop 2 stop
} }
@ -183,7 +183,7 @@ func parse-expr { str | with degree expr ;
s chr concat =s s chr concat =s
} expr _array } expr _array
:iter :iter
:map <{ { str | [ swap ] _str } } :map<{ str | [ swap ] _str }>
:foreach :foreach
s s
} }
@ -220,7 +220,7 @@ func derivation { str=function | with degree derivation ;
func mkvardecl { str | with degree ; func mkvardecl { str | with degree ;
"[" "["
0 degree ++ Range:new:iter 0 degree ++ Range:new:iter
:map <{ { | "c" swap _str concat } } :map<{ | "c" swap _str concat }>
:join <{ "," } :join<",">
"]" concat concat "]" concat concat
} }