Talk:Mnemonic major system
|
|
Use of Lottery Numbers as an aid to memorization
Lottery numbers for the California Lottery for July 28, 2004 using the major system for memorizing numbers. A PERL script was used to create random short english phrases as an aid to memorization. The script works by permuting the provided digits into every possible order and then partitioning each possible ordering into a set of tokens. A dictionary lookup then chooses random words for those values for which tokens exist.
In a preferred embodiment, a program like WordNet would be used to choose words according to a noun-verb-noun or like structure; idealy so as to obtain a short phrase that coorsponds to a neologism or current news event. In the following list the phrases LOUD ENDGAME RUMBLE seems to suggest some kind of sporting event, and the phrase OLYMPIAD GOTTEN MOREL might work out better as OLYMPIAD GO! 12345 ... which translates to: 5391712345 which in turn yeilds the indicated draw set.
MAIN: 5 12 17 34 39 MEGA: 5
Winning Stuff
Therefore, if one realizes that using the major system for memorizing numbers the phrase how to be a millionaire - you earn it, ok? and translates it using the appropriate PERL code, then on realizes that this phrase encodes the sequence 19-35-24-42-17 which came up on the California Super Lotto on May 3, 2003 along with the mega number twenty. Now if one does not want to earn it for oneself, then one hopes that the cookie monster will bless one with the wisdom to make up ones own winning magic cookie phrase (hopefully without having to extort, bribe, or blackmail any public officials), or else its just you have to be tough when you're a man - who knows? which by a remarkable coincidence encodes the sequence 8-19-18-24-32 with mega 20 which came up on the California Super Lotto on January 18, 2003. There was no jackpot winner on that draw.
Whether a so-called greedy algorithm exists that would make it possibly to increase one's chances of winning the Lottery, (with an honest ticket that is) is not publicly known. There may be significant implications as a result of the conclusions that can be drawn from a deep analysis of certain mappings of linguistic patterns onto finite grammers of various types. (see Chomsky). This is in part because it is becomes possible to develop denumerable or recursively enumerable sets of features of an intellegence system, even though such problems of analysis are frequently thought of as being intractable. Unforturnately, many people suffer from a failure of imagination.
Get your own Stuff
#!/usr/bin/perl -w # use strict;
sub cipher; sub make_interval;
$N = make_interval ("47");
$M = make_interval ("27");
$R = qr/{($N)($N)($N)($N)($N)($M)}/;
# This is a quick and easy PERL function that translates a # cookie in text form into an actual playable set of # Lottery numbers! It requires the make interval function # and an unspecified "cipher' function to do the mnemonic # substitution - either by pattern analysis or by dictionary # lookup.
sub xlate_cookie1
{
my ($text,$sequence) = @_;
$text =~ s/[?;:!,."]//g;
@tokens = split (/\s+/,$text);
$sequence = "{";
foreach $word (@tokens) {
$value = cipher ($word);
$sequence .= $value;
}
$sequence .= "}";
print "SEQUENCE: $sequence\n";
$sequence=~/$R/;
@THE_NUMBERS = sort {$a<=>$b} ($1,$2,$3,$4,$5);
$THE_MEGA = $6;
foreach $num (@THE_NUMBERS) { print "$num "; }
print "MEGA: $THE_MEGA\n";
}
# This is the quick and dirty cipher program to translate # words into the appropriate mnemonics. Handles quite a # few words correctly, Of course the best way to to this # is by using a phonetic dictionary.
sub cipher
{
my ($w) = @_;
$w =~ tr/A-Z/a-z/;
$w =~ s/jua//g;
$w =~ s/alk/7/g;
$w =~ s/cr/74/g;
$w =~ s/ficia|ficie|ficio/86/g;
$w =~ s/ould/1/g;
$w =~ s/tion/62/g;
$w =~ s/ussi|ssu/6/g;
$w =~ s/god/71/g;
$w =~ s/ng/27/g;
$w =~ s/[aeiou]ss/0/g;
$w =~ s/age/6/g;
$w =~ s/ght|tt|t|dd|d/1/g;
$w =~ s/kn|nn|n/2/g;
$w =~ s/mm|m/3/g;
$w =~ s/rr|r/4/g;
$w =~ s/ll|l/5/g;
$w =~ s/sh|ch|j/6/g;
$w =~ s/ck|k|co/7/g;
$w =~ s/ph|ff|f|ugh|v/8/g;
$w =~ s/gho|ca|cou|g[uo]/7/g;
$w =~ s/bb|b|pp|p/9/g;
$w =~ s/[szc]/0/g;
$w =~ s/[aeiouwhy]//g;
$w =~ s/\D//g;
return $w;
}
# This creates a pair of strings of the form: # 1|2|3|4|5 .. and so on up to .. |43|44|45|46|47 # which are used in the pattern matching functions.
sub make_interval
{
my ($i) = @_;
my ($str,$j);
for ($j=1;$j<$i;$j++) {
$str.=$j; $str.="|";
}
return $str.=$i;
}
Lazarus666 02:31, 13 Sep 2004 (UTC)
- Expand your Peg list (http://www.psywww.com/mtsite/memxpand.html) by adding colors and smells, textures. I got to 1'000'000 pegs that way.
Glad you got to a million pegs, but... --Ed Poor