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