[Emre]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on 1:INPUT:*:{
  if (/* iswm $1 || .* iswm $1 || &* iswm $1 || !* iswm $1 || * isin $1 || 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
}