Galton box animation: Difference between revisions
m
Make both Perl versions visible
SqrtNegInf (talk | contribs) m (Make both Perl versions visible) |
|||
Line 2,465:
| o o o o o o o o o |
+---------------------------------------+</pre>
=={{header|Perl}}==
=== translated from Raku ===
Output shows of final state for a run with 50 coins.
{{trans|Raku}}
Line 2,629:
</pre>
==
Runs until a bottom column overflows.
<lang perl>#!/usr/bin/perl
| |||