Subject: Re: learning lojban

From: "Garrett Jones" <[email-masked]>
Date: Wed, 30 Aug 2000 15:18:22 -0000

--- In [email-masked], "michael helsem" <graywyvern@h...> wrote:
> i compiled a lojban rhyming dictionary (unfortunately it's not
computerized, 
> so i can't upload it). somehow for me knowing associations like:
> 
> BLANU blue
> SLANU cylinder
> JGANU angle
> SNANU south
> 
> &
> 
> SPANO Spanish
> CNANO norm
> TRANO nitrogen
> 
> keep them distinct in my memory.
> 

Inspired by you, I just wrote a perl script in about 15 minutes that
will list these automatically using the gismu wordlist:

#!/usr/bin/perl
open (GISMU, 'gismu');
while (<GISMU>) {
$line = $_;
$word = substr($line,0,5);
$meaning = substr($line,19,20);
if ($word =~ /\w{5}/ && $meaning =~ /\w/) {
$meaning =~ s/\s*$//g;
if (substr($word,1,1) =~ /[aeiou]/) {
$key = substr($word,1,4);
$hash->{0}{$key}{$word} = $meaning;
} else {
$key = substr($word,2,3);
$hash->{1}{$key}{$word} = $meaning;
}
}
}

foreach $hashname (sort keys %$hash) {
$thehash = $hash->{$hashname};
foreach $key (sort keys %$thehash) {
foreach $word (sort keys %{$thehash->{$key}}) {
$meaning = $thehash->{$key}{$word};
print "$word: $meaning\n";
}
}
}

it lists them neatly in "gismu: meaning" pairs. If you think this list
would be useful, i could upload it into the files section.