On Fri, 2004-09-24 at 11:37, Steve Wampler wrote:
And here's an even cleverer variant of the first. (It's
arguable whether 'cleverer' is 'better' or not...)
-----------------------------------------------------------------
invocable all
procedure main(stk,ws:' \t')
while write("-> ",read() ? (while (pos(0) & break stk) |
push(stk, numeric(x := (tab(upto(~ws)),tab(many(~ws)))\1) |
proc(x,2)!push([],pop(stk),pop(stk))) |
break ["error"] )[1])
end
-----------------------------------------------------------------
--
Steve Wampler -- [EMAIL PROTECTED]
The gods that smiled on your birth are now laughing out loud.
-------------------------------------------------------
This SF.Net email is sponsored by: YOU BE THE JUDGE. Be one of 170
Project Admins to receive an Apple iPod Mini FREE for your judgement on
who ports your project to Linux PPC the best. Sponsored by IBM.
Deadline: Sept. 24. Go here: http://sf.net/ppc_contest.php
_______________________________________________
Unicon-group mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/unicon-group
