On Thu, 2004-06-10 at 18:37, Majorinc, Kazimir wrote:
> Test for short strings!
>
> procedure is_OK(x)
> every i:=1 to *x-1 do
> if x[i]>>x[i+1] then fail
> return x
> end
>
> procedure forgotten_algorithm(x)
> repeat
> { x[?*x] :=: x[?*x]
> if is_OK(x) then return x
> }
> end
>
> procedure main()
> repeat {x:=read(); write(forgotten_algorithm(x))}
> end
Ok, *this one* I'm definitely not testing with the
2.2MB input file...
--
Steve Wampler <[EMAIL PROTECTED]>
-------------------------------------------------------
This SF.Net email is sponsored by the new InstallShield X.
>From Windows to Linux, servers to mobile, InstallShield X is the
one installation-authoring solution that does it all. Learn more and
evaluate today! http://www.installshield.com/Dev2Dev/0504
_______________________________________________
Unicon-group mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/unicon-group
