Paste: Silly stuff

Author: ben_m
Mode: factor
Date: Mon, 20 Dec 2010 01:45:52
Plain Text |
: ask-for-numbers ( -- seq n )
  [ [
        "> " write readln
        {
            { [ dup "quit" = ] [ drop f ] }
            { [ dup string>number ] [ string>number sq , t ] }
            [ "Try again" write ]
        } cond
    ] loop
  ] { } make dup length ;

New Annotation

Summary:
Author:
Mode:
Body: