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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Task/Executable-library/J/executable-library-1.j
View file

@ -3,10 +3,10 @@ hailseq=: -:`(1 3&p.)@.(2&|) ^:(1 ~: ]) ^:a:"0
9!:29]1
9!:27'main 0'
main=:3 :0
smoutput 'Hailstone sequence for the number 27'
smoutput hailseq 27
smoutput ''
smoutput 'Finding number with longest hailstone sequence which is'
smoutput 'less than 100000 (and finding that sequence length):'
smoutput (I.@(= >./),>./) #@hailseq i.1e5
echo 'Hailstone sequence for the number 27'
echo hailseq 27
echo ''
echo 'Finding number with longest hailstone sequence which is'
echo 'less than 100000 (and finding that sequence length):'
echo (I.@(= >./),>./) #@hailseq i.1e5
)

6
Task/Executable-library/J/executable-library-3.j
View file

@ -2,7 +2,7 @@ require '~temp/hailseq.ijs'
9!:29]1
9!:27'main 0'
main=:3 :0
smoutput 'Finding most frequent hailstone sequence length for'
smoutput 'Hailstone sequences for whole numbers less than 100000:'
smoutput {:{.\:~ (#/.~,.~.) #@hailseq }.i.1e5
echo 'Finding most frequent hailstone sequence length for'
echo 'Hailstone sequences for whole numbers less than 100000:'
echo {:{.\:~ (#/.~,.~.) #@hailseq }.i.1e5
)