Mercurial > hg > jgplsrc
view test/g112s.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 1 0,:0 1 0 1) -: *:/\. 0 0 1 1 ,: 0 1 0 1 nand=: 4 : 'x*:y' f=: 3 : '(*:/\. -: nand/\.) y ?@$ 2' f"0 x=.>:i.2 10 ,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 i.12 'domain error' -: *:/\. etx 3.4 5 'domain error' -: *:/\. etx 3j4 5 'domain error' -: *:/\. etx 'deipnosophist' 'domain error' -: *:/\. etx ;:'professors in New England' 4!:55 ;:'f nand x'