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
|
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
|
||||||
}
|
}
|
||||||
|
|
Loading…
Add table
Reference in a new issue