Vibrating rectangles: Difference between revisions
m
was missing first 3 lines of program
SqrtNegInf (talk | contribs) (Added Perl example, even more vibratory) |
SqrtNegInf (talk | contribs) m (was missing first 3 lines of program) |
||
Line 6:
Using the core module <code>Time::HiRres</code> to get sub-second <tt>sleep</tt>
{{trans|Perl 6}}
<lang perl>%r = ('tl' => qw<┌>, 'tr' => qw<┐>, 'h' => qw<─>, 'v' => qw<│>, 'bl' => qw<└>, 'br' => qw<┘>);▼
<lang perl>use utf8;
binmode STDOUT, ":utf8";
use Time::HiRes qw(sleep);
▲
@colors = ("\e[1;31m", "\e[1;32m", "\e[1;33m", "\e[1;34m", "\e[1;35m", "\e[1;36m");
|