If you allow me:
Drop =: ({&'~!@#$%^&*()_' @ ? @ (12&+) @ 0:)"0 NB. any number, one by one
Drop each B NB. while open
Drop each C NB. oops
Ben
________________________________________
From: programming-boun...@forums.jsoftware.com
[programming-boun...@forums.jsoftware.com] on behalf of Linda Alvord
[lindaalv...@verizon.net]
Sent: Wednesday, January 22, 2014 13:24
To: programm...@jsoftware.com
Subject: [Jprogramming] A SAD STORY
]E =: '0' NB. an egg
0
]H =: 2 3$E NB. half dozen eggs
000
000
]D =: 2 6$E NB. dozen eggs
000000
000000
]B =: <D NB. box of eggs
-------┐
│000000│
│000000│
L-------
]L =: 3 4$B NB. layer of boxes
-------T------T------T------┐
│000000│000000│000000│000000│
│000000│000000│000000│000000│
+------+------+------+------+
│000000│000000│000000│000000│
│000000│000000│000000│000000│
+------+------+------+------+
│000000│000000│000000│000000│
│000000│000000│000000│000000│
L------+------+------+-------
]C =: 3 4 5$B NB. case of boxes
-------T------T------T------T------┐
│000000│000000│000000│000000│000000│
│000000│000000│000000│000000│000000│
+------+------+------+------+------+
│000000│000000│000000│000000│000000│
│000000│000000│000000│000000│000000│
+------+------+------+------+------+
│000000│000000│000000│000000│000000│
│000000│000000│000000│000000│000000│
+------+------+------+------+------+
│000000│000000│000000│000000│000000│
│000000│000000│000000│000000│000000│
L------+------+------+------+-------
-------T------T------T------T------┐
│000000│000000│000000│000000│000000│
│000000│000000│000000│000000│000000│
+------+------+------+------+------+
│000000│000000│000000│000000│000000│
│000000│000000│000000│000000│000000│
+------+------+------+------+------+
│000000│000000│000000│000000│000000│
│000000│000000│000000│000000│000000│
+------+------+------+------+------+
│000000│000000│000000│000000│000000│
│000000│000000│000000│000000│000000│
L------+------+------+------+-------
-------T------T------T------T------┐
│000000│000000│000000│000000│000000│
│000000│000000│000000│000000│000000│
+------+------+------+------+------+
│000000│000000│000000│000000│000000│
│000000│000000│000000│000000│000000│
+------+------+------+------+------+
│000000│000000│000000│000000│000000│
│000000│000000│000000│000000│000000│
+------+------+------+------+------+
│000000│000000│000000│000000│000000│
│000000│000000│000000│000000│000000│
L------+------+------+------+-------
]OOOPs =: 3 4 5$<"2(60 2 6)$(?720$12){'~!@#$%^&*()_'
-------T------T------T------T------┐
│@!%%#%│&@!)_*│@#__~@│@^#_&!│_*$!)~│
│!&_^)#│%)(($_│###@&^│)~!(~#│&^&)))│
+------+------+------+------+------+
│*&#~@@│)^~#)^│#*#)(&│%($*~(│$_^(@~│
│$!%&#(│~@~^^*│$(!)%^│&^$$&_│$$*^#^│
+------+------+------+------+------+
│_$&_%&│~(__$#│#_~(!~│@$&($@│^@)!#~│
│(*(^@%│(@%&)^│&^@&*%│**^&~#│&&*@_)│
+------+------+------+------+------+
│~**~*(│*^$)*%│$^~~^!│!!~(&!│)!$_#!│
│)_^&$$│@!^%@)│#^%)%^│^#&*@$│*)))@@│
L------+------+------+------+-------
-------T------T------T------T------┐
│(($$^_│&!*))^│~)!(@#│$_&!%)│&!^$(!│
│)($~!(│~)@$%(│@#*_&$│!%__!$│)*~^%#│
+------+------+------+------+------+
│!(##@@│*#@%_@│_^*)&*│)%@#!)│%#_~&%│
│~^%@(^│%~^*)_│&*#%%#│)~&$@^│!!@%*&│
+------+------+------+------+------+
│*($$~@│^&^()*│&##)&@│$@)***│*$%!*$│
│%^!&*~│#%^_^~│)@_~*_│!)!@#)│_@@~_*│
+------+------+------+------+------+
│@$)~~)│~@))!$│)!_)&~│$@()#~│_*_!$)│
│@*@))#│~((&(~│$~)***│&$#_@&│$%!##*│
L------+------+------+------+-------
-------T------T------T------T------┐
│*$))#)│#!~!*~│!!~*^(│&&(#!~│&*#!@@│
│**$%))│~)~($_│&^^#@~│#**@!@│@!_%)*│
+------+------+------+------+------+
│_~*_~)│%)#%~)│!_#%(*│_!%$_^│*#($$(│
│#_)~%$│&!^&~)│$%&!#&│$$#!&*│(~%%(@│
+------+------+------+------+------+
│(@!~!@│)!~~%)│#&^%&*│)*_)&^│%$#!))│
│^^~*^^│^~#(((│^%^^)~│%~&*^~│!$@@_%│
+------+------+------+------+------+
│@(^$!_│_$$#!_│!@#~*$│&#%~@&│@$*^%_│
│*^@#^~│!^!#&^│)@!#@$│_$)$(@│!&_&)!│
L------+------+------+------+-------
Linda
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
