in reply to Hints on hoq to create this graph?

The main inequation is $x ** 2 + $y ** 2 < $r ** 2, which describes which points x, y in a grid are part of a circle of the radius r. An obfuscated example of the solution is below: 
#!/usr/bin/perl
use warnings;
use strict;

my@p=(' ',qw(. + * ),'#');my$s=20;sub p{my($w,$v)=@_;for my
$e(1..$#p){return$p[$e]if$w**2+$v**2<($e*$s/$#p)**2}' '}for
my$v(-$s..$s){for my$w(-$s..$s){print p($w,$v);}print"\n";}

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^2: Hints on hoq to create this graph?
by Anonymous Monk on Feb 14, 2014 at 08:48 UTC
    Thank you choroba, I am a bit confused as to what you do in your sub-routine...
    Could you maybe explain this a bit?
    sub p
{
  my($w,$v)=@_;
  for my $e(1..$#chars_all)
  {
    if($w**2+$v**2<($e*20/$#chars_all)**2)
    {return $chars_all[$e]} 
  }' '
}

    [download]

    Particularly, I can't understand the  }' ' part that you have...
    Thank you very much!
[reply]
[d/l]
[select]
      If you are too far from the centre, the subroutine returns a space.
      لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]

In Section Seekers of Perl Wisdom