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

all tasks

Browse source
This commit is contained in:
Ingy döt Net 2013-04-11 01:07:29 -07:00
parent b83f433714
commit 68f8f3e56b
14735 changed files with 178959 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Task/Trabb-Pardo-Knuth-algorithm/J/trabb-pardo-knuth-algorithm-1.j Normal file
View file

@ -0,0 +1,6 @@
tpk=: 3 :0
smoutput 'Enter 11 numbers: '
t1=: ((5 * ^&3) + (^&0.5@* *))"0 |. _999&".;._1 ' ' , 1!:1 [ 1
smoutput 'Values of functions of reversed input: ' , ": t1
; <@(,&' ')@": ` ((<'user alert ')&[) @. (>&400)"0 t1
)

5
Task/Trabb-Pardo-Knuth-algorithm/J/trabb-pardo-knuth-algorithm-2.j Normal file
View file

@ -0,0 +1,5 @@
tpk ''
Enter 11 numbers:
1 2 3 4 5 6 7 8.8 _9 10.123 0
Values of functions of reversed input: 0 5189.96 _3642 3410.33 1717.65 1082.45 627.236 322 136.732 41.4142 6
0 user alert _3642 user alert user alert user alert user alert 322 136.732 41.4142 6

10
Task/Trabb-Pardo-Knuth-algorithm/J/trabb-pardo-knuth-algorithm-3.j Normal file
View file

@ -0,0 +1,10 @@
get11numbers=: 3 :0
smoutput 'Enter 11 numbers: '
_&". 1!:1]1
)
f_x=: %:@| + 5 * ^&3
overflow400=: 'user alert'"_`":@.(<:&400)"0
tpk=: overflow400@f_x@|.@get11numbers

14
Task/Trabb-Pardo-Knuth-algorithm/J/trabb-pardo-knuth-algorithm-4.j Normal file
View file

@ -0,0 +1,14 @@
tpk''
Enter 11 numbers:
1 2 3 4 5 6 7 8.8 _9 10.123 0
0
user alert
_3642
user alert
user alert
user alert
user alert
322
136.732
41.4142
6