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

computer/programs/useless/secunet_contest/entry_1

;3%5;3%5;3%5;2 ;5 ; ;%4;3%5;4 ;5
;2 ;open _ ,$0;2 ; ;5 ; ;3;2 ;1%2;4 ; ;5 ;3 ;5
;2 ;7 ;5 ; ;;while (<_>) { ;5 ; ;5 ;1%6;2
;3%5;2%7; ;7 ;2;s;%; ;g;3 ;1%7;2; ;5
;8 ; ;;s'([; ])(\d)' $1x$2 ; 'ge;; ; s'\S';'g; ;4;
s; ;#;g; ; ;5 ; ;5 ; ;5 ; ;5 ; s;\;; ;g; ;3 ;
;3%5;3%5;3%5;3%5;; print ;}%5;5%3;2

This Perl program displays "secunet" in large letters.
The output is:

   #####   #####   #####  #     # # ####   #####    #
  #     # #     # #     # #     # ##    # #     #   #
  #       #     # #       #     # #     # #     # ######
   #####  ####### #       #     # #     # #######   #
        # #       #       #     # #     # #         #
  #     # #     # #     # #     # #     # #     #   #   #
   #####   #####   #####   #####  #     #  #####     ###

Explanation

Download the source.