Mercurial > hg > jgplsrc
view test/g011p.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 min=. 4 : 'x<.y' (<./\ -: min/\ ) x=.? 13$2 (<./\ -: min/\ ) x=.?7 13$2 (<./\"1 -: min/\"1) x (<./\ -: min/\ ) x=.?3 5 13$2 (<./\"1 -: min/\"1) x (<./\"2 -: min/\"2) x (<./\ -: min/\ ) x=.? 12$2 (<./\ -: min/\ ) x=.?4 12$2 (<./\"1 -: min/\"1) x (<./\ -: min/\ ) x=.?4 8 12$2 (<./\"1 -: min/\"1) x (<./\"2 -: min/\"2) x NB. <./\ I --------------------------------------------------------------- min=. 4 : 'x<.y' (<./\ -: min/\) x=.1 2 3 1e9 2e9 (<./\ -: min/\) |.x (<./\ -: min/\ ) x=._1e4+? 13$2e4 (<./\ -: min/\ ) x=._1e4+?4 13$2e4 (<./\"1 -: min/\"1) x (<./\ -: min/\ ) x=._1e4+?3 5 13$2e4 (<./\"1 -: min/\"1) x (<./\"2 -: min/\"2) x (<./\ -: min/\ ) x=._1e9+? 13$2e9 (<./\ -: min/\ ) x=._1e9+?4 13$2e9 (<./\"1 -: min/\"1) x (<./\ -: min/\ ) x=._1e9+?3 5 13$2e9 (<./\"1 -: min/\"1) x (<./\"2 -: min/\"2) x NB. <./\ D --------------------------------------------------------------- min=. 4 : 'x<.y' (<./\ -: min/\ ) x=.0.01*_1e4+? 13$2e4 (<./\ -: min/\ ) x=.0.01*_1e4+?4 13$2e4 (<./\"1 -: min/\"1) x (<./\ -: min/\ ) x=.0.01*_1e4+?3 5 13$2e4 (<./\"1 -: min/\"1) x (<./\"2 -: min/\"2) x NB. <./\. Z --------------------------------------------------------------- min=. 4 : 'x<.y' (<./\ -: min/\ ) x=.[&.j. 0.1*_1e2+? 13$2e2 (<./\ -: min/\ ) x=.[&.j. 0.1*_1e2+?4 13$2e2 (<./\"1 -: min/\"1) x (<./\ -: min/\ ) x=.[&.j. 0.1*_1e2+?3 5 13$2e2 (<./\"1 -: min/\"1) x (<./\"2 -: min/\"2) x (,'j') -: <./\'j' (,<'ace') -: <./\<'ace' 'domain error' -: <./\ etx 'deipnosophist' 'domain error' -: <./\ etx ;:'peace in our time' 4!:55 ;:'f min x'