aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

tasks a-s

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

5
Task/Partial-function-application/J/partial-function-application-1.j Normal file
View file

@ -0,0 +1,5 @@
fs=:1 :'u"0 y'
f1=:*&2
f2=:^&2
fsf1=:f1 fs
fsf2=:f2 fs

8
Task/Partial-function-application/J/partial-function-application-2.j Normal file
View file

@ -0,0 +1,8 @@
fsf1 i.4
0 2 4 6
fsf2 i.4
0 1 4 9
fsf1 fsf1 1+i.4
4 8 12 16
fsf2 fsf1 1+i.4
4 16 36 64

8
Task/Partial-function-application/J/partial-function-application-3.j Normal file
View file

@ -0,0 +1,8 @@
f1 i.4
0 2 4 6
f2 i.4
0 1 4 9
f1 1+i.4
2 4 6 8
f2 f1 1+i.4
4 16 36 64

9
Task/Partial-function-application/J/partial-function-application-4.j Normal file
View file

@ -0,0 +1,9 @@
crippled=:1 :0
assert.1=#y
u y
)
F1=: f1 crippled
F2=: f2 crippled
fsF1=: F1 fs
fsF2=: F2 fs

6
Task/Partial-function-application/J/partial-function-application-5.j Normal file
View file

@ -0,0 +1,6 @@
F1 i.4
|assertion failure: F1
| 1=#y
fsF1 i.4
0 2 4 6
NB. and so on...