OpenEuphoria

For fun

• Posted by a.tammer at hetnet.nl Apr 13, 2002
• 480 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 *****