view test/g110p.ijs @ 0:e0bbaa717f41 draft default tip

lol J
author Jordi Gutiérrez Hermoso <jordigh@octave.org>
date Mon, 25 Nov 2013 11:56:30 -0500
parents
children
line wrap: on
line source

NB. */\ B ---------------------------------------------------------------

(0 0 1 1 ,: 0 0 0 1) -: */\ 0 0 1 1 ,: 0 1 0 1
(20$1) -: */\20$1
(20$0) -: */\20$0

times=. 4 : 'x*y'

(*/\   -: times/\  ) x=.?    13$2
(*/\   -: times/\  ) x=.?7   13$2
(*/\"1 -: times/\"1) x
(*/\   -: times/\  ) x=.?3 5 13$2
(*/\"1 -: times/\"1) x
(*/\"2 -: times/\"2) x
(*/\   -: times/\  ) x=.?    12$2
(*/\   -: times/\  ) x=.?4   12$2
(*/\"1 -: times/\"1) x
(*/\   -: times/\  ) x=.?4 8 12$2
(*/\"1 -: times/\"1) x
(*/\"2 -: times/\"2) x


NB. */\ I ---------------------------------------------------------------

times=. 4 : 'x*y'

(*/\ -: times/\) x=.1 2 3 1e9 2e9
(*/\ -: times/\) |.x

(*/\   -: times/\  ) x=._10+?    7$20
(*/\   -: times/\  ) x=._10+?4   7$20
(*/\"1 -: times/\"1) x
(*/\   -: times/\  ) x=._10+?3 5 7$20
(*/\"1 -: times/\"1) x
(*/\"2 -: times/\"2) x

(*/\   -: times/\  ) x=._1e9+?    13$2e9
(*/\   -: times/\  ) x=._1e9+?4   13$2e9
(*/\"1 -: times/\"1) x
(*/\   -: times/\  ) x=._1e9+?3 5 13$2e9
(*/\"1 -: times/\"1) x
(*/\"2 -: times/\"2) x


NB. */\ D ---------------------------------------------------------------

times=. 4 : 'x*y'

(*/\   -: times/\  ) x=.0.1*_1e2+?    13$2e2
(*/\   -: times/\  ) x=.0.1*_1e2+?4   13$2e2
(*/\"1 -: times/\"1) x
(*/\   -: times/\  ) x=.0.1*_1e2+?3 5 13$2e2
(*/\"1 -: times/\"1) x
(*/\"2 -: times/\"2) x


NB. */\. Z ---------------------------------------------------------------

times=. 4 : 'x*y'

(*/\   -: times/\  ) x=.j./0.1*_1e2+?2     13$2e2
(*/\   -: times/\  ) x=.j./0.1*_1e2+?2 4   13$2e2
(*/\"1 -: times/\"1) x
(*/\   -: times/\  ) x=.j./0.1*_1e2+?2 3 5 13$2e2
(*/\"1 -: times/\"1) x
(*/\"2 -: times/\"2) x

(,'j')    -: */\'j'
(,<'ace') -: */\<'ace'

'domain error' -: */\ etx 'deipnosophist'
'domain error' -: */\ etx ;:'peace in our time'

4!:55 ;:'times x'