Mercurial > repo

comparison bin/words @ 11743:128e8ef9d583 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<fizzie> fetch bin/words http://hack.esolangs.org/get/bin/words
author HackEso <hackeso@esolangs.org>
date Sat, 23 Feb 2019 01:39:12 +0000
parents e037173e0012
children fa1e8c8f1676
comparison
equal deleted inserted replaced
11742:4188a454e124 11743:128e8ef9d583
12 }; 12 };
13 #warn "Optional module Math::Random::MT::Perl not found.\n" if $@; 13 #warn "Optional module Math::Random::MT::Perl not found.\n" if $@;
14 } 14 }
15 15
16 #constants 16 #constants
17 my @options = qw(eng-1M eng-all eng-fiction eng-gb eng-us french german hebrew russian spanish irish german-medical bulgarian catalan swedish brazilian canadian-english-insane manx italian ogerman portuguese polish gaelic finnish norwegian esolangs); 17 my @options = qw(eng-1M eng-all eng-fiction eng-gb eng-us french german hebrew russian spanish irish german-medical bulgarian catalan swedish brazilian canadian-english-insane manx italian ogerman portuguese polish gaelic finnish norwegian esolangs opcode);
18 my $n = 4; 18 my $n = 4;
19 my $default_opt = "--eng-1M"; 19 my $default_opt = "--eng-1M";
20 (my $default_dataset = $default_opt) =~ s/(^|-+)([^-])/\u$2/g; 20 (my $default_dataset = $default_opt) =~ s/(^|-+)([^-])/\u$2/g;
21 21
22 #help info 22 #help info