If brevity is what you're going for, you can use issues for all
strings that don't contain spaces:
ask #
prin #
> I guess I forgot the ultra-ultra short version which doesn't handle
> space= s or strange chars: REBOL[]foreach c ask{}[l: index?
> find{%etinamsdrgukwohblzfcp=F6vx=E4q=FCy= j=E756%7=E9%%8%/
> %%%%94%%%%%=E5%3%%=F12%10}c until[prin pick{-=B7}odd? l(l: l / 2)<
> 2]prin= { }]
> (152-153 bytes, may require deletion of the / at the end of first
> line on= some systems)
> Or if we skip numbers: REBOL[]foreach c ask{}[l: index?
> find{%etinamsdrgukwohblzfcp=F6vx=E4q=FCy= j}c until[ prin
> pick{-=B7}odd? l(l: l / 2)< 2]prin{ }]
> (120-121 bytes)
> --=20 /Johan R=F6nnblom, Team Amiga
>
>
>
