|
( (fs=/('(x./('(y.map'($x.$y))))))
|
|
& (f1=/('(x.$x*2)))
|
|
& (f2=/('(x.$x^2)))
|
|
& (partial=/('(x./('(y.($x)$($y))))))
|
|
& (!partial$!fs)$!f1:?fsf1
|
|
& (!partial$!fs)$!f2:?fsf2
|
|
& out$(!fsf1$(0 1 2 3))
|
|
& out$(!fsf2$(0 1 2 3))
|
|
& out$(!fsf1$(2 4 6 8))
|
|
& out$(!fsf2$(2 4 6 8))
|
|
);
|