Help for this page

Select Code to Download


  1. or download this
    >perl -e "my %f=(chr=>sub{chr(shift)});  print $f{$ARGV[0]}->($ARGV[1]
+)" chr 35
#
>perl -e "my %f=(chr=>sub{chr(shift)});  print $f{$ARGV[0]}->($ARGV[1]
+)" chr 36
$
  2. or download this
    >perl -e "print eval qq|@ARGV|" sqrt 2
1.4142135623731
>perl -e "print eval qq|@ARGV|" chr 128
Ç