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

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/Generator-Exponential/J/generator-exponential-1.j Normal file
View file

@ -0,0 +1,10 @@
coclass 'mthPower'
N=: 0
create=: 3 :0
M=: y
)
next=: 3 :0
n=. N
N=: N+1
n^M
)

2
Task/Generator-Exponential/J/generator-exponential-2.j Normal file
View file

@ -0,0 +1,2 @@
stateySquare=: 2 conew 'mthPower'
stateyCube=: 3 conew 'mthPower'

6
Task/Generator-Exponential/J/generator-exponential-3.j Normal file
View file

@ -0,0 +1,6 @@
coclass 'uncubicalSquares'
N=: 0
next=: 3 :0"0
while. (-: <.) 3 %: *: n=. N do. N=: N+1 end. N=: N+1
*: n
)

2
Task/Generator-Exponential/J/generator-exponential-4.j Normal file
View file

@ -0,0 +1,2 @@
next__g i.10 [ next__g i.20 [ g=: conew 'uncubicalSquares'
529 576 625 676 784 841 900 961 1024 1089

4
Task/Generator-Exponential/J/generator-exponential-5.j Normal file
View file

@ -0,0 +1,4 @@
mthPower=: 1 :'^&m@i.'
squares=: 2 mthPower
cubes=: 3 mthPower
uncubicalSquares=: squares -. cubes

1
Task/Generator-Exponential/J/generator-exponential-6.j Normal file
View file

@ -0,0 +1 @@
uncubicalSquares=: {. squares@<.@p.~&3 1.1 -. cubes

2
Task/Generator-Exponential/J/generator-exponential-7.j Normal file
View file

@ -0,0 +1,2 @@
20 }. uncubicalSquares 30 NB. the 21st through 30th uncubical square
529 576 625 676 784 841 900 961 1024 1089