Calendar - for "REAL" programmers: Difference between revisions

→‎{{header|Perl 6}}: Make it work with current perl6
(added FreeBASIC)
(→‎{{header|Perl 6}}: Make it work with current perl6)
Line 1,313:
=={{header|Perl 6}}==
Uppercase is no challenge, who needs letters at all?
[Requires the year to be supplied as a command-line argument, Snoopy to be available in snoopy.txt, and Unixish <i>cat</i> and <i>cal</i> commandscommand.]
{{works with|rakudo|2011.07}}
<lang perl6>$_="\0".."~";<115 97 121 32 34 91 73 78 83 69 82 84 32 83 78 79 79 80 89 32 72 69 82 69 93 34 59 114 117 110 32 60 99 97 108 62 44 64 42 65 82 71 83 91 48 93 47 47 49 57 54 57>."$_[99]$_[104]$_[114]$_[115]"()."$_[69]$_[86]$_[65]$_[76]"()</lang>
{{broken|Perl 6}}
[Requires the year to be supplied as a command-line argument, Snoopy to be available in snoopy.txt, and Unixish <i>cat</i> and <i>cal</i> commands.]
<lang perl6>$_=["\0"..."~"];<
114 117 110 32 34 99 97 116 32 115 110 111 111 112 121 46
116 120 116 59 99 97 108 32 64 42 65 82 71 83 91 48 93 34
>."$_[99]$_[104]$_[114]$_[115]"()."$_[101]$_[118]$_[97]$_[108]"()</lang>
 
=={{header|Phix}}==
Anonymous user