view test/gop.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. o./\ B --------------------------------------------------------------

cir=. 4 : 'x o. y'

(o./\"1 -: cir/\"1) #:i.16

(o./\   -: cir/\  ) x=.0<?    13$4
(o./\   -: cir/\  ) x=.0<?7   13$4
(o./\"1 -: cir/\"1) x
(o./\   -: cir/\  ) x=.0<?3 5 13$4
(o./\"1 -: cir/\"1) x
(o./\"2 -: cir/\"2) x

(o./\   -: cir/\  ) x=.0<?    16$4
(o./\   -: cir/\  ) x=.0<?8   16$4
(o./\"1 -: cir/\"1) x
(o./\   -: cir/\  ) x=.0<?2 4 16$4
(o./\"1 -: cir/\"1) x
(o./\"2 -: cir/\"2) x

(,'j')    -: o./\'j'
(,<'ace') -: o./\<'ace'

'domain error' -: o./\ etx 'sesquipedalian'
'domain error' -: o./\ etx ;:'super cali fragi listic espi ali do cious'

4!:55 ;:'cir x'