frhyme

guess the last phonemes of a French word
git clone https://a3nm.net/git/frhyme/
Log | Files | Refs | README

commit bede6a0a558ab4217aadb25059cac09406350662
parent 01a653a89238ea41fad3c4bd4f05e4bfb5ba4726
Author: Antoine Amarilli <a3nm@a3nm.net>
Date:   Tue, 13 Mar 2012 14:42:07 +0100

remove old file

Diffstat:
detect.pl | 24------------------------
1 file changed, 0 insertions(+), 24 deletions(-)

diff --git a/detect.pl b/detect.pl @@ -1,24 +0,0 @@ -#!/usr/bin/perl - -# From a list of '\n'-separated words, output occurrences of words -# starting by 'h' when it can be inferred whether the word is aspirated -# or not. The format is "0 word" for non-aspirated and "1 word" for -# aspirated. - -my $asp; # will the next word be aspirated? - -while (<>) { - $_ = lc($_); - print "$asp $_" if (/^h/i && $asp >= 0); - chop; - # we store in asp what the current word indicates about the next word - $asp = -1; # default is unknown - $asp = 0 if /^[lj]'$/; - $asp = 0 if /^qu'$/; - $asp = 1 if /^que$/; - $asp = 0 if /^cet$/; - $asp = 1 if /^ce$/; - # only meaningful are "je", "de", "le" and "la" - $asp = 1 if /^[jdl][ea]$/; -} -