słowo które pozostaje słowem nawet jak mu się kasuje literki

na diggu pojawiła się informacja, że w języku angielskim jest 9 literowe słowo z którego można odejmować literki i nadal pozostaje prawidłowym słowem.
w toku dyskusji komentującej ktoś wylistował sporo takich słów.

stwierdziłem, że zobaczę jak to w polskim.

wziąłem najnowszą listę słów w polskim (zakładając, że używasz *ubuntu lub debiana, paczka nazywa się wpolish, dla innych dystrybucji/systemów pewnie też jest). (nie gwarantuje poprawności słów z tego słownika. po prostu taki miałem pod ręką)
napisałem mały/prosty programik (kod poniżej) i odpaliłem.

pomieliło, pomieliło, zeżarło 400 mega ramu, i dostałem wyniki.

najdłuższe słowa jakie znalazłem to:

  • odkupicielskiej : o => ok => oku => okup => okupi => okupie => okupcie => okupicie => odkupicie => odkupiciel => odkupicieli => odkupicielki => odkupicielski => odkupicielskie => odkupicielskiej
  • odkupicielskimi : o => ok => oku => okup => okupi => okupie => okupcie => okupicie => odkupicie => odkupiciel => odkupicieli => odkupicielki => odkupicielski => odkupicielskim => odkupicielskimi
  • popodgryzaniach : r => rc => rac => rach => ranch => ranach => pranach => praniach => poraniach => pograniach => pogrzaniach => pogryzaniach => poogryzaniach => poodgryzaniach => popodgryzaniach
  • popodgryzaniami : a => pa => pan => pana => panam => panami => pranami => praniami => poraniami => pograniami => pogrzaniami => pogryzaniami => poogryzaniami => poodgryzaniami => popodgryzaniami
  • prasowalniczymi : s => si => soi => sowi => asowi => rasowi => prasowi => prasowni => prasowani => prasowalni => prasowalnic => prasowalnicy => prasowalniczy => prasowalniczym => prasowalniczymi

czyli 5 słów 15 literowych. 🙂 polski daje lepsze (dłuższe) słowa niż angielski 🙂 YEAH!

kod:

#!/usr/bin/perl
use strict;
use Text::Iconv;
use Fatal qw( open );
 
my $converter = Text::Iconv->new("iso-8859-2", "utf-8");
my @words = ();
my %paths = ();
 
open my $fh, "<", "/usr/share/dict/polish";
while (my $l = $converter->convert(lc <$fh>)) {
$l =~ s/^\s*//;
$l =~ s/\s*$//;
next if $l eq '';
my $len = length $l;
$words[$len]->{$l} = 1;
}
close $fh;
 
my @possible_words = sort keys %{ $words[1] };
for my $word (@possible_words) {
$paths{$word} = [ $word ];
}
 
while (1) {
printf "Możliwe (%ux%u): %s\n", scalar @possible_words, length $possible_words[0], join(", ", @possible_words);
 
my %found = ();
my $new_len = 1 + length $possible_words[0];
 
for my $word (@possible_words) {
my @to_check = get_check_words($word);
 
my @existing = grep { $words[$new_len]->{$_} } @to_check;
 
for my $found_word (@existing) {
$paths{$found_word} = [ @{ $paths{$word} }, $found_word ];
$found{$found_word} = 1;
}
}
 
last if 0 == scalar keys %found;
for my $word (sort keys %found) {
print "  - $word : " . join(" => ", @{ $paths{$word} } ) . "\n";
}
@possible_words = sort keys %found;
}
 
exit;
 
sub get_check_words {
my $word = shift;
my @reply = ();
for my $i (0..length $word) {
for my $char ("a".."z", qw( ą ć ę ł ń ó ś ź ż ) ) {
my $temp = $word;
substr($temp, $i, 0) = $char;
push @reply, $temp;
}
}
return @reply;
}

naprawdę cenne dane?

masz jakieś naprawdę cenne dane? i potrzebujesz je przenieść? może ten produkt jest rozwiązaniem: wodo, ognio, kulo -odporny pen-drive, o pojemności od 32MB to 2GB. cena jeszcze nie ustalona, ale pewnie nie będzie niska 🙂

czy to jeszcze laptop?

acer zademonstrował nowego laptopa. z monitorem o wielkości 20 cali!

w środku 256 mega ramu dla grafiki (nvidia 7600), hd-dvd, bluetooth, wbudowana kamerka 1.3 megapixela i 2 dyski 120G spięte w raid.

potwór waży coś koło 8-9 kilogramów. ceny nie podano (może i dobrze).

po co kupować taki sprzęt? tego nie da się nosić ze sobą… a może się da?

głośna muzyka – niecodzienne zastosowanie

pewnie wiele razy słyszeliście przejeżdżający samochód z którego dudnił jakiś hiphop czy disco.

ludzie tym jeżdżący znani są ze specyficznego stylu i zamiłowania do rozmaitych sportów.

w australii znaleziono inne zastosowanie (niż pokazanie otaczającym swojego super gustu muzycznego) głośno puszczanej muzyki.

używa się jej do … odstraszania huliganów 🙂

z głośników usytuowanych w centrach handlowych puszczają binga crosby'ego, a przy parkingach gdzie często zbierają się grupki ichniejszych dresów, puszczają głośno barry'ego manilowa na zmianę z klasyką. i okazuje się, że to jest skuteczne.

może i u nas by takie coś zrobić?

tuningowa nowość

to, że samochody można “tuningować" na różne sposoby to wszyscy wiedzą.

podświetlane wycieraczki, antenki, podwozie, felgi wyśietlające wzorki.

to wszystko jest już stare.

ale teraz coś nowego:

podkładka pod tablicę rejestracyjną wyświetlająca napisy.

co prawda na rozmiar amerykański, ale pewnie niedługo pojawią się przeróbki dla polaków.

czyż to nie piękne? będzie można wyświetlić “dziękuję" jak ktoś nas wpuści, czy “przepraszam" jak coś się zrobi źle.

choć oczywiście pojawią się też pewnie ludzie z włączonym na stale sp…aj czy innymi ciekawostkami.

“microchipy” wszczepiane dzieciom

onet napisał newsa, że w japonii w szpitalach wszczepia się dzieciom chipy (jak znam życie proste rfidy z serialami). komentarze na forum onetowym oczywiście trzymają “poziom" pisząc jakieś pierdoły o oświęcimiu, big brotherze itd.

jestem świeżo po obejrzeniu relacji z targów makerfaire – zasadniczo jest takie spotkanie ludzi (organizowane przez pismo “make") gdzie schodzą się ci którzy rubią robić różne rzeczy. nie kupować, ale robić.

jednym z kolesi którzy tam byli był facet który wszczepił sobie 2 rfidy – w jedną rękę i w drugą. i opisuje jakie ma teraz udogodnienia. drzwi otwiera przejeżdżając ręką w pobliżu czujnika, dom “wie" kiedy wszedł, gdzie jest, co i jak. ogólnie same plusy.

oczywistym jest, że ta technologia rodzi pewne dodatkowe szanse na nadużycia, ale ogólnie wygląda na niesamowicie ułatwiającą życie.

znajomy ma w lapie (apple, ale o tym będzie inny wpis) takie cuś, że jak mu lap wykryje, że jego komórka się oddala od laptopa, to w laptopie włącza się automatycznie screensaver.

działa to dzięki bluetoothowi. ale blue tooth wymaga zasilania, jest aktywny, prosto wykrywalny itd. natomiast rfidy nie wymagają zasilania. działają całkowicie pasywnie.

lekarz który wszczepiał rfidy temu facetowi z makerfaire, stwierdził, że proces wszczepienia tego jest prostszy i szybszy niż “instalacja" podskórnych środków antykoncepcyjnych u kobiet. czyli miłe i proste. kiedy będzie się można otagować w polsce?

nowy gracz wśród serwisów do dzielenia się filmami

na sieci jest już całkiem sporo serwisów do dzielenia się filmami.

większość zna youtube‘a, sporo zna google.video, o innych, takich jak eyespot, grouper, jumpcut, ourmedia, revver, videoegg, vimeo czy vsocial wie już raczej niewiele osób.

ostatnio pojawił się nowy gracz – vpod.tv. ciekawostką jest model biznesowy. vpod.tv ma oferować reklamodawcą umieszczanie reklam na początku filmów uzytkowników vpod.tv. za każdy wyświetlony tak filmik reklamowy uzytkownik dostanie kasę. jeśli nie chce reklam, a chce umieścić playera vpod.tv odtwrzającego filmik na swojej stronie – będzie musiał jakieś pieniądze zapłacić.

ciekawe czy to chwyci. w/g mnie ma spore szanse. aczkolwiek trzeba wziąść pod uwagę nienajniższe koszty prowadzenia takiej działalności. zgodnie z tym co “słychać" na sieci, aktualy lider branży (youtube) wydaje miesięcznie 1 milion dolarów na pasmo!