I admit, the idea is pretty simple and maybe the thing is
a bit cheesy ... however, it looks pretty weird which
made me decide it was worthwile posting. I hope it proves
me right ;-)
#!/usr/bin/perl -w
use strict;; ;; ;;;;;; ;;
open A,$0;;; ;;;;;;;;;;;;
;;;;;;;;push @_,$_ while
<A>;;;;;;;;; ;;;;;;;;;;;;
print chr( y/;/;/ -3<0?
ord' ':y/;// + ord '^' )
foreach "@_" =~/;[;\s]+/g
;;;;;;;;;;;; ;; ;;;;;; ;;
push @_,$_;; push@_,$_;;;
push @_,$_;; ;;;;;;;;;;;;
;;push @_,$_ ;;;;;;;;;;;;
;;;;;push @_ ,$_;;;;;;;;;
;;;;;;;;;;;; ;push@_,$_;;
;;;;;;;;push @_,$_;;;;;;;
push @_,$_;; ;;;;;;;;;;;;
;;;;;;push@_ ,$_;;push@_,
$_;;;;;;;;;; ;;;;;;;;push
@_,$_;;;;;;; push@_,$_;;;
;;;;;;;;;;;; ;;;;;push @_
,$_;;;;;;;;; ;;;;;push@_,
$_;;push @_,$_;;;
;;; ;;;; push @_
, $_ ;;; push @_,
$_ ;;;;; push @_,
$_;;;;;; ;;; ;;;;
push @_, $_;;;;;;
;push@_, $_;push
@_,"\n"; ;;;;;;;
;;;;;;; ;;; ;;
print pop@_
After posting this, I decided that it might look a bit
better when i'd turn the shape from a square to a couple
of semi-colons ... so that's exactly what I did
I'm terribly sorry for the guys who voted for it and who
think it became a piece of crap now ;-)