Comments on: Predictive Text Encoding Synonym Dictionary

By: grippa

grippa — Sat, 05 Apr 2008 12:09:47 +0000

Words (or pseudo-words!) which are the same in T9 are synokia. Presumably from Greek ’syn’, with, and ‘Nokia’, the god of mobile phones.

By: dunstan

dunstan — Tue, 08 Nov 2005 07:37:03 +0000

ps leave a message on my blog http://www.ozdunstan.blogspot.com if you have any ideas…

By: dunstan

dunstan — Tue, 08 Nov 2005 07:36:02 +0000

I’m trying to find out what these word pairs / families are called – people have suggested ‘text twins’. I quite like the sound of ‘predictinyms’. Does a word exist? If not we should thing of a good one!

Dunstan

By: prion

prion — Fri, 08 Apr 2005 23:26:20 +0000

I forgot about duplicate words.

#!/usr/bin/perl # pass it something like /usr/share/dict/words use strict; my (%values, %words, $value, $word); @values{ 'a'..'z' } = (2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,7,8,8,8,9,9,9,9); while (<>) { if (/^(\w+)$/) { $word = lc $1; $value = join "", map { $values{$_} } split //, $word; $words{$value}{$word} = 1; } } # another sort order might make more sense foreach $value (sort {$a <=> $b} keys %words) { print "$value\n"; foreach $word (sort keys %{$words{$value}}) { print "\t$word\n"; } }

By: prion

prion — Fri, 08 Apr 2005 23:04:04 +0000

There’s certainly a shorter way but…

#!/usr/bin/perl # pass it something like /usr/share/dict/words use strict; my (%values, %words, $value, $word); @values{ 'a'..'z' } = (2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,7,7,7,8,8,8,9,9,9,9); while () { if (/^(\w+)$/) { $word = lc $1; $value = join "", map { $values{$_} } split //, $word; push @{$words{$value}}, $word; } } foreach $value (sort {$a $b} keys %words) { print "$value\n"; foreach $word (sort @{$words{$value}}) { print "\t$word\n"; } }