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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Fractran/J/fractran-1.j Normal file
View file

@ -0,0 +1,2 @@
toFrac=: '/r' 0&".@charsub ] NB. read fractions from string
fractran15=: ({~ (= <.) i. 1:)@(toFrac@[ * ]) ^:(<15) NB. return first 15 Fractran results

3
Task/Fractran/J/fractran-2.j Normal file
View file

@ -0,0 +1,3 @@
taskstr=: '17/91 78/85 19/51 23/38 29/33 77/29 95/23 77/19 1/17 11/13 13/11 15/14 15/2 55/1'
taskstr fractran15 2
2 15 825 725 1925 2275 425 390 330 290 770 910 170 156 132

1
Task/Fractran/J/fractran-3.j Normal file
View file

@ -0,0 +1 @@
fractran=. (((({~ (1 i.~ (= <.)))@:* ::]^:)(`]))(".@:('1234567890r ' {~ '1234567890/ '&i.)@:[`))(`:6)

2
Task/Fractran/J/fractran-4.j Normal file
View file

@ -0,0 +1,2 @@
'17/91 78/85 19/51 23/38 29/33 77/29 95/23 77/19 1/17 11/13 13/11 15/14 15/2 55/1' (<15) fractran 2
2 15 825 725 1925 2275 425 390 330 290 770 910 170 156 132

4
Task/Fractran/J/fractran-5.j Normal file
View file

@ -0,0 +1,4 @@
primes=. ('fractan'f.) ((1 }. 2 ^. (#~ *./@:e.&2 0"1@:q:))@:)
'17/91 78/85 19/51 23/38 29/33 77/29 95/23 77/19 1/17 11/13 13/11 15/14 15/2 55/1' (<555555) primes 2
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71

2
Task/Fractran/J/fractran-6.j Normal file
View file

@ -0,0 +1,2 @@
primes
((((({~ (1 i.~ (= <.)))@:* ::]^:)(`]))(".@:('1234567890r ' {~ '1234567890/ '&i.)@:[`))(`:6))((1 }. 2 ^. (#~ *./@:e.&2 0"1@:q:))@:)

2
Task/Fractran/J/fractran-7.j Normal file
View file

@ -0,0 +1,2 @@
_ fractran
".@:('1234567890r ' {~ '1234567890/ '&i.)@:[ ({~ (1 i.~ (= <.)))@:* ::]^:_ ]

1
Task/Fractran/J/fractran-8.j Normal file
View file

@ -0,0 +1 @@
FRACTRAN=. ({~ (1 i.~ (= <.)))@:* ::]^:_

2
Task/Fractran/J/fractran-9.j Normal file
View file

@ -0,0 +1,2 @@
455r33 11r13 1r11 3r7 11r2 1r3 FRACTRAN 11664
59604644775390625