use v5.14; use strict; use warnings FATAL => 'all'; our $days_until_christmas = 1 * map s([+] )( )gix &&printf( '%5s' .'%-4s' .'%s',$_, substr(~~~~ reverse,!$^C) =~y[/(] [\\)]r,$/ ),my@ xmas= qw 1 +.- _(+" (_++: /+' +(_/^ 1;1 ;1;
Update: I've posted the Technicolor™ version to blogs.perl.org.
In reply to Christmas Eve Obfu by tobyink
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |