RETAS-Logo
RETAS-Logo
This page is not mobile friendly.
Better watch on bigger screen.

computer/programs/useless/secunet_contest/entry_6

# ================================================================== #
  /[+-]/&&eval"\$c$_$_"||ord==46&&print(chr($c))while($_=getc(DATA))
# ================================================================== #

                               __DATA__
                                                               ++
  +++++++   +++++++   +++++++  ++     ++ + ++++++   +++++++  ++++++++
 ++     ++ ++     ++ ++     ++ ++     ++ +++    ++ ++     ++   ++
 ++        ++     ++ ++        ++     ++ ++     ++ ++     ++   ++   
  +++++++  +++++++++ +.        --     -- --     -- ------.--   .+
        ++ ++        ++        ++     ++ ++     ++ ++          +.
 --     -- --     -. --     -- --     -- -.     ++ ++     ++   ++   ++
  +++++.-   -------   -------   -------  --     --  -------     -----

 --------------------------------------------------------------------.

This program is biligual and can be executed with Perl and Brainf***.
For an explanation see japh_2 which is very similar to this one.

More about Brainf***.

Download the source.