153 reputation
4
bio website b2gills.blogspot.com
location Waverly, IA
age 32
visits member for 3 years, 9 months
seen Dec 1 at 13:59

Self taught Perl programmer.
I started learning Perl around the turn of the century.

Feel free to send me an email.

GitHub
CPAN


Dec
1
comment Shortest code to print ':)' random times
What's interesting is that this is almost the same as the shortest Perl6 code. The only difference is that Perl6 requires some whitespace after sub calls ( unless you alter the parsing behaviour with a slang or macro ).
Nov
28
comment Is a number divisible by each of its digits?
Actually the first time you use a string as a number or a number as a string, the variable gets modified to hold that additional data. That is why you only get a warning the first time you use 'abc' as a number (assuming you have use warnings; enabled. )
Nov
28
comment Is a number divisible by each of its digits?
Actually the True and False values are more like dualvar(1,'1') and dualvar(0,'').
Nov
28
comment Is a number divisible by each of its digits?
If you want to make it return a Bool just add so to the front of the code so$_%%.comb.all.
Nov
27
comment Shortest code to print ':)' random times
I kind of like say ':)' x (^256).pick better, but there is no way to make it shorter than using rand. Although it does come in handy if you want to output all of the possible outputs in random order .say for ":)" Xx (^256).pick(*)
Feb
6
revised Hello World 0.0!
Added hint for highlighter
Dec
14
awarded  Editor
Dec
14
revised Implement a Brute Force Sudoku Solver
Add code highlighting
Dec
14
suggested approved edit on Implement a Brute Force Sudoku Solver
Nov
17
comment Match up to 10 in a array
I think the -p should be counted since the equivalent would add LINE: while (<ARGV>){...}continue{die "-p destination: $!\n" unless print $_}
Apr
2
awarded  Teacher
Mar
28
answered Obfuscated Hello World
Mar
28
answered Hello World 0.0!
Mar
28
awarded  Supporter
Mar
28
awarded  Autobiographer
Dec
25
comment Code Golf Christmas Edition: How to print out a Christmas tree of height N
If you are using Perl 5.10, you could replace print, with say.