RosettaCodeData/Task/Trabb-Pardo-Knuth-algorithm/J/trabb-pardo-knuth-algorithm-1.j

7 lines
227 B
Text
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
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
)