update syntax to reflect change in spl
This commit is contained in:
parent
ca563886ec
commit
0704f4cb29
1 changed files with 5 additions and 5 deletions
|
@ -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
|
||||
}
|
||||
|
|
Loading…
Add table
Reference in a new issue