RosettaCodeData/Task/ABC-Problem/J/abc-problem-3.j

delElem=: {~<@<@<
uppc=:(-32*96&<*.123&>)&.(3&u:)
reduc=: ] delElem  1 i.~e."0 1
forms=:  (1 - '' -: (reduc L:0/ :: (a:"_)@(<"0@],<@[))&uppc) L:0
Update all new Tasks 2015-02-20 09:02:09 -05:00			`delElem=: {~<@<@<`
			`uppc=:(-3296&<.123&>)&.(3&u:)`
			`reduc=: ] delElem 1 i.~e."0 1`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`forms=: (1 - '' -: (reduc L:0/ :: (a:"_)@(<"0@],<@[))&uppc) L:0`