Mercurial > hg > jgplsrc
view test/g410s.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 ------------------------------------------------------------- (1 1 0 1,:0 1 0 1) -: <:/\. 0 0 1 1 ,: 0 1 0 1 outof=: 4 : 'x!y' f=: 3 : '(!/\. -: outof/\.) y ?@$ 2' ,f"1 x=.7 8 9,."0 1 [ _1 0 1+ 255 ,f"1 |."1 x ,f"1 x=.7 8 9,."0 1 [ _1 0 1+4*255 ,f"1 |."1 x 'domain error' -: !/\. etx 'deipnosophist' 'domain error' -: !/\. etx ;:'professors in New England' 4!:55 ;:'f outof x'