17 lines
281 B
Text
17 lines
281 B
Text
( (sqrt=.!arg^1/2)
|
|
& (log=.e\L!arg)
|
|
& (A=x2d (=.!arg^2) log (=.!arg*pi))
|
|
& ( B
|
|
= d2x sqrt (=.e^!arg) (=.!arg*pi^-1)
|
|
)
|
|
& ( compose
|
|
= f g
|
|
. !arg:(?f.?g)
|
|
& '(.($f)$(($g)$!arg))
|
|
)
|
|
& whl
|
|
' ( !A:%?F ?A
|
|
& !B:%?G ?B
|
|
& out$((compose$(!F.!G))$3210)
|
|
)
|
|
)
|