B.S., Chemical Engineering, U. Toledo, 1993 (Summa Cum Laude)
M.S., Chemical Engineering, U. Michigan, 2000
Ph.D., Chemical Engineering, U. Michigan, 2000
Currently a post-doctorate researcher at Argonne Nat'l Labs in Chicago, IL.
Creator of WS#9 among others...
For those that are curious, I'm mostly self-taught in computer programming; (un)fortunately, the current state of Chemical Engineering tends to value shrink-wrap over innovation...
My Home Page for more details
Sainthood obtained on May 20, 2001 20:20 pm CST.

PerlMonks Other Users Locator

Interested in knowing where the current Other Users are all located? You can now see a map (+/- 10 minutes), and more details on how that's generated are available here.

Perl Puzzles
Posted by the Perplexing Populous of PerlMonks for the Pondering and Pleasure of Prenctices and Professionals of Perl

I'm going to try to keep a current list of perl-based puzzles that have been posted to Perlmonks here; these include but are not limited to Golf or other types of puzzles. If you find me missing one, drop me a msg or a email and I'll add it.

Golf

Perl Golf are challenges to produce valid perl code that does a given task in as few characters in the code as possible.

• Pig Latin by vroom
• Key Word in Context System by Falkkin
• Strings-to-Array by japhy
• Nearest Neighbors by MeowChow
• Mixing up da Arrays by ChOas
• Tree Searching by Masem
• List Spliting by Masem
• Triangle Golf by nashdj
• Ordered Combinations by MeowChow
• Embedded in Order by Masem
• Fragment Reassembly by MeowChow
• Interlaced Strings by yakko
• Reversal by japhy
• Per Mutations by MeowChow
• List of Partitions by jynx
• Multiply Polynomials by tilly
• LFSR (Linear Feedback Shift Register) by tye
• Arbitary Alphabetical Sorting by Masem
• Repeated Phrases by Masem
• RPN Calculator by Sprad
• Shortest Graph Distance by Masem
• Minimizing the Bacon Number by Masem <LI>JAPH by tadman
• Sieve of Eratosthenes by tilly
• Reversing RPN Notation by Masem
• Missing Entries in Series by sharle
• Factorials by srawls
• Grocery Bagging by tadman
• PGA Golf, Round 1 by jmcnamara (and Results)
• Selection from Sets by knobunc
• Subroutine Chaining Idiom by Ovid
• Phone Numbers to Words by mischief
• Closest Value in List by larryk
• Binomal Coefficients/Pascal's Triangle by tachyon
• Best 8-Character Obfuscation by mr.nick
• Matching State Abbreviations by John M. Dlugosz
• LED Sign by tadman
• Making Change by tadman
• Kaprekar's Process by srawls

Other Golf Links

• Golf Do-s and Don't-s by japhy
• On Golf by Dominus
• Tips on Writing Golf Challenges by chipmunk

Lanugage Puzzlers

• The "Proposal Problem" by nysus
• Little Stumper by nysus
• Just for Newbies by nysus
• "Junkyard" Puzzle - Avergae of Numbers by Masem

Non-Perl Specific Puzzlers

• Spooky Math Problem by tilly
• 5x5 Puzzle by tilly
• Triangular Numbers by jepri

Current 'Projects'
If you want to call these as such...

• Reworking of WS#9's CGI - most of the current code is hobbled together over 3 years time, and from a feature standpoint, most everything I want is frozen, so I'm working on rewriting everything better thanks to DBI and TT2.
• Algorithm::Genetic - A generalized framework for running Genetic Algorithms in perl.
• Game::Life - Runs Conway's Game of Life in perl
• List 'regex' engine - I'd like to be able to develop a way to be able to match arbitary lists of data against some patterns; the matching would be done at the element level as opposed to individual characters, but I want to be able to include the ability to use arbitary functions for matching as well, such as item for item based on a true string regex, a condition, or other similar features....I want to do this because of ...
• Rules-based Perl - As discussed in this node, a rules-based perl language would be rather interesting to work with, maybe more from a curiousity sake then anything else. In order to even start this, it's absolutely necessary to develop the list regexs as mentioned above.

Preliminary 'language' for List::Regex

I'd appriciate any comments on this, either to my msg box here or email address and I'll try to post updates here.

I believe I've got the approach to doing this one; I'm going to take Parse::RecDescent, with a fixed grammar, then use that grammar to develop a grammar specifically for the regex itself to pump back into Parse::RecDescent again (meta!). I was going to try to develop my own finite state machine to do this, but I believe I can make use of existing code better than starting from scratch.

Here's the ideas I've had in mind:

• . - Match any element once
• /xxxxx - Specific class elements, including
  • /word
  • /number
  • /integer
• /regex/ - Match element if regex matches element
• ?variable - Assign one element to $variable
• ?variable:<any of the above> - Assign $variable with conditions set above
• ?variable:{ perl code } - Assign $variable, and test the embedded perl code with it.
• ? - (after element) matches 0 or more times
• + - (after element) matches 0 or 1 time
• * - (after element) matches 1 or more times
• [n,m] - (after element) matches at least n but no more than m times (using {} would be nice if I can set it up to differentiate from the perl code above)
• <element>|<element> - Or operator
• (element*)<CODE> - Grouping operator, values stored to @1, @2, etc possibly?  (makes more sense with <code>?variable:(element*))

Some examples:

@list = qw( The quick brown fox jumped over the lazy dog );

listparse( ".[9]", @list );  #true
listparse( ".[8]", @list );  #false
listparse( "The ?adjectives:(.*) fox jumped over the lazy ?what", @lis
+t );  
   # $adjectives would be set as a ref to [ quick, brown ]
   # $what would be set to "fox"
listparse( "The ?speed:{ $speed eq 'quick' } .*", @list );
   # $speed would be set to 'quick'
listparse( "The ?speed:{ $speed ne 'quick' } .*", @list );
   # false
listparse( "/word*", @list ); #true
listparse( "/word /number .*, @list) ; #false
[download]