- or download this
Input | C | a | t
ord | 67 | 97 | 116
...
6-bit chars | 16 | 54 | 5 | 52
+32 -> ord | 48 | 86 | 37 | 84
Output | 0 | V | % | T
- or download this
$ perl -e 'print pack("u","Cat")'
#0V%T
...
M0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T
M0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T0V%T
$0V%T0P``
- or download this
# Marko
$_=pack+u,'packed-source-string';y/1-Z/7 ^A9-@5Fa-}/;eval
# Sec
($_=pack u,q{packed-source-string})=~y/'A-Z`/ a{-}e-i\n\t1 n-yFm/;eval
- or download this
eval lc pack u,'packed-source-string'
- or download this
eval lc pack u,'' [17]
s//lc pack u,''/ee [18]
...
s//lc pack(u,'')x99/ee;y/v_/ N/;print [37]
s//lc pack u,''x99/ee;y/[-^/ NGT/;print [39]
s//lc pack(u,'')x99/ee;y/[-^/ NGT/;print [40]
- or download this
eval lc pack u,'packed-source-string'
- or download this
$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:'}')for<>
+!~/:/..11;print"@$_
"for@c
- or download this
$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:v125)for<
+>!~/:/..11;print"@$_\n"for@c
- or download this
mx;$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:v125)f
+or<>!~/:/..11;print"@$_\n"for@c
- or download this
map$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:v125),
+<>!~/:/..11;print"@$_\n"for@c
- or download this
map$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:v125),
+($_=<>,!/:/)..11;print"@$_\n"for@c
- or download this
map$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:v125),
+0..s//<>/e./:/;print"@$_\n"for@c
- or download this
map$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($`%12^$_?o:x)&($_^$'/5?o:v125),
+0..s//<>/e./:/;print"@$_\n"for@c
- or download this
# 1 2 3 4 5 6
#234567890123456789012345678901234567890123456789012345678901
map$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($`%12^$_?o:x)&($'/+5^$
a.$_?o:v125),0..s//<>/e./:/;print"@$_\n"for@c
- or download this
my $source = <<'PERSEVEROUS';
map$c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($`%12^$_?o:x)&($'/+5^$
...
PERSEVEROUS
my $out = unpack 'u',uc($source);
print "eval lc pack u,'" . $out . "'";
- or download this
@c=(@b=(++$n,bottle.'s'x@-,of,beer),on,the,wall),s//Take one down and
+pass it around, @c.
@c, @b.
/until/, 99\D+/;print$'."Go to the store and buy some more$&"