Galton box animation: Difference between revisions
Content added Content deleted
(Perl 6 implementation of the Galton Box animation with unicode symbols on the terminal.) |
(→Perl 6: use an animated gif instead of a static screenshot.) |
||
Line 794: | Line 794: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
[[File: |
[[File:Galton_box_perl6.gif|thumb|UPPER HALF BLOCK and LOWER HALF BLOCK alternate to give a somewhat smooth animation.]] |
||
<lang Perl6>my $row-count = 6; |
<lang Perl6>my $row-count = 6; |
||
Line 941: | Line 941: | ||
simulate($coins); |
simulate($coins); |
||
}</lang> |
}</lang> |
||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |