Примеры JAPH
JAPH — Just another Perl hacker — название для программ, которые выводят эту строку на печать, но при этом код написан максимально запутанным образом.
В поставке Pugs есть несколько примеров таких программ. Они расположены в каталоге examples/japh. (Правда, безошибочно выполнились лишь три программы из шести.)
#curry.p6
sub japh (Str $lang) { say "just another $lang hacker"; }
my &perl6Japh := &japh.assuming("Perl6");
perl6Japh()
#list_fun2.p6 use v6; # based loosely on http://www.perlmonks.org/?node_id=199499 # domm@zsi.at my $a=<j 1 t 3 l c> >>~<< <u a h P 5 k> >>~<< <s n e e h e> >>~<< <t o r r a r> ;$a~~s:g/\s//;$a~~s:g/\d/ /;$a.say;
#list_fun3.p6
use v6;
# based loosely on http://www.perlmonks.org/?node_id=199499
# domm@zsi.at
(('j',' ','t',' ','l','c')>>~<<('u','a','h','P',' ','k')>>~<<
('s','n','e','e','h','e')>>~<<('t','o','r','r','a','r')).say;