For fun
- Posted by a.tammer at hetnet.nl Apr 13, 2002
- 370 views
Here is how Rob beats Steve Hawkins at solving the mystery of the beginning and grow of the universe: by splitting `atoms`, immediately fusing them, whereupon splitting them again ASO, thus creating a chain-reaction. WARNING!!!!!!! NEVER USE THE while 1 do UNLESS you want to use it as a virus or crash your own machine. ****** CODE ***** include machine.e object BIG_BANG BIG_BANG=0 -- there was nothing at the beginning for t=1 to 4 do-- while 1 do if atom(BIG_BANG) then BIG_BANG&= int_to_bits(BIG_BANG,28) else for r=1 to length(BIG_BANG) do BIG_BANG&=int_to_bits(BIG_BANG[r],28) end for end if end for--end while -- Now there is the vast emptiness of the universe, filled with atoms ? 1/0 ***** END CODE *****