Perl

You are playing Wordle and having a hard time finding a 5-letter word? There are 5883 of them in /usr/share/dict/words: $ egrep '^[[:alpha:]]{5}$' /usr/share/dict/words | sort -fu | wc -l 5883 In combination with an old Perl script random #! /usr/bin/perl -w srand ($$ ^ time); $i = rand($#ARGV +1); print $ARGV[$i]; you can make the first move: $ random `egrep '^[[:alpha:]]{5}$' /usr/share/dict/words | sort -fu`; echo likes Aim for a common word without repeating letters....

Uh, oh. Just found some old Perl code of mine. It's from 1998-05-31: [...] return undef unless defined($findit); return 1; } Well, in my defense: It's Perl. ;-) OK, this can't excuse it. But don't be afraid: The program isn't used anymore.

Who would have expected this? http://perl.org/six

See Perl 6 to machine code via Common Lisp and sbcl: KindaPerl6 is a self-compiling compiler written in a subset of Perl 6 with support for multiple emitter backends. [...] now the Common Lisp backend is getting up to speed.