Constrained random points on a circle: Difference between revisions
Content added Content deleted
mNo edit summary |
(→{{header|Perl 6}}: added crazy version) |
||
Line 207: | Line 207: | ||
for @range X @range -> $x, $y { %matrix{$y}{$x} = ' ' } |
for @range X @range -> $x, $y { %matrix{$y}{$x} = ' ' } |
||
%matrix{$_[1]}{$_[0]} = '*' for @samples; |
%matrix{$_[1]}{$_[0]} = '*' for @samples; |
||
%matrix{$_}{@range}.join('').say for @range;</lang> |
%matrix{$_}{@range}.join(' ').say for @range;</lang> |
||
Turning that program completely inside-out and reducing to a single statement with a single non-parameter variable, we get this version, which also works: |
|||
<lang perl6>(say ~.map: { $_ // ' ' } for my @matrix) given do |
|||
-> [$x, $y] { @matrix[$x][$y] = '*' } for pick 100, do |
|||
for ^32 X ^32 -> $x, $y { |
|||
[$x,$y] when 100..225 given [+] ($x,$y X- 15) X** 2; |
|||
} |
|||
</lang> |
|||
This uses, among other things, a 0-based matrix rather than a hash, a <tt>given</tt> on the first line that allows us to print the final value of the matrix straight from its initial declaration, a <tt>for</tt> statement feeding a <tt>for</tt> statement modifier, a lambda that unpacks a single x-y argument into two variables, the functional form of pick rather than the method form, a quasi-list comprehension in the middle loop that filters each <tt>given</tt> with a <tt>when</tt>, precalculated squared limits so we don't have to take the square root, use of X- and X** to subtract and exponentiate both <tt>$x</tt> and <tt>$y</tt> in parallel. |
|||
After the <tt>given do</tt> has loaded up <tt>@matrix</tt> with our circle, the <tt>map</tt> on the first line substitutes a space for any undefined matrix element, and the extra space between elements is supplied by the stringification of the list value, performed by the prefix <tt>~</tt> operator, the unary equivalent of concatenation in Perl 6. |
|||
At this point you would be justified in concluding that we are completely mad. <tt>:-)</tt> |
|||
=={{header|PureBasic}}== |
=={{header|PureBasic}}== |