ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     30 Jan 2003  16:23:31
 To : Nikolay Pichtin
 Subject : Re: Корень слова
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Nikolay Pichtin.
 
 NP>  Есть списки слов.
 NP>  Hеобходимо выделить однокоренные слова.
 NP>  Для примера
 
 NP> ящик
 NP> ящика
 NP> ящикам
 NP> ящиках
 NP> ящики
 NP> ящиков
 NP> ящиком
 NP> - выделить - ящик
 NP> япония
 NP> японская
 NP> японские
 NP> японский
 NP> японских
 NP> японского
 NP> японцев
 NP> - выделить япон
 
 NP> Что-то не получается у меня.
 
 Про однокоренные - забудь. Полный морфологический разбор. "С совпадающим
 началом" - можно.
 
 Hи разу не претендуя на оптимальность и даже однопроходность,
 
 ==== 8< [test.pl] ====
 #!/usr/bin/perl -w
 use strict;
 
 sub common_part {
   my $common = substr($_[0],0,1);
   while (! grep { substr($_,0,length($common)) ne $common } @_) {
    $common = substr($_[0],0,length($common)+1);
   }
   return substr($common,0,length($common)-1);
 }
 
 print common_part(<>)."\n";
 
 ==== >8 [test.pl] ====
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Корень слова   Nikolay Pichtin   30 Jan 2003 00:19:42   Re: Корень слова   Artem Chuprina   30 Jan 2003 16:23:31   Re: Корень слова   Victor Wagner   30 Jan 2003 18:34:14   Re: Корень слова   Artem Chuprina   30 Jan 2003 20:53:56