Kod: Kodu kopyalamak için üzerine çift tıklayın!
on 1:INPUT:*:{
if (/* iswm $1) { return }
if (.* iswm $1) { return }
if (&* iswm $1) { return }
if (!* iswm $1) { return }
if (* isin $1) { return }
if (http isin $1-) { return }
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü,Û,ö,ô,Ö,Ô)
var %a 0, %b, %c
while (%a < $numtok(%turkce,32)) {
inc %a
%c = $gettok(%turkce,%a,32)
if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(4,%c,1) }
else { %b = %b %c }
}
if (!%b) { %b = %turkce }
say %b
unset %turkce
unset %b
halt
}