tasks a-s

This commit is contained in:
Ingy döt Net 2013-04-10 23:57:08 -07:00
parent 47bf37c096
commit b83f433714
12433 changed files with 156208 additions and 123 deletions

View file

@ -0,0 +1,7 @@
EvalWithX=. monad : 0
'CODE V0 V1'=. y
(". CODE [ x=. V1) - (". CODE [ x=. V0)
)
EvalWithX '^x';0;1
1.71828183

View file

@ -0,0 +1,2 @@
(0&({::) -~&>/@:(128!:2&.>) 1 2&{) '^';0;1
1.71828183

View file

@ -0,0 +1,3 @@
EvalDiffWithY=: dyad define
-~/verb def x"_1 y
)

View file

@ -0,0 +1,2 @@
'^y' EvalDiffWithY 0 1
1.71828

View file

@ -0,0 +1,4 @@
EvalDiffWithName=: adverb define
:
-~/m adverb def ('(m)=.y';x)"_1 y
)

View file

@ -0,0 +1,4 @@
'^George' 'George' EvalDiffWithName 0 1
1.71828
'Z + 2^Z' 'Z' EvalDiffWithName 2 3
5