On Fri, 27 Jan 2012 13:58:50 +0100 Alexander Burger <a...@software-lab.de> wrote:
> On Fri, Jan 27, 2012 at 01:48:41PM +0100, Alexander Burger wrote: > > Let me check more thoroughly. > > How about that? > > (de readJson () > (case (read "_") > ... > (T > (let X @ > (if (and (= "-" X) (format (peek))) > (- (read)) > X ) ) ) ) ) That seems to work for all my test cases, thanks! Changed it in the Rosetta page too. -José -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe