Rtext { :r | var %a $r(1,$len($1)),%b $addtok(%b,%a,32),%s $len($1) | if $numtok(%b,32) == %s { while %s { var %k %k $+ $right($left($1,$token(%b,%s,32)),1)) | dec %s } | return %k } | else { goto r } }

Analiz:

2 Döngü
4 Değişken
7 Identifier

rtext %n = | hfree -w s | var %f $len($1),%x %f | while %f { var %r $r(1,[ %x ]) | if ($istok(%n,%r,3)) continue | %n = $addtok(%n,%r,3) | hadd -m s s $+($iif($hget(s,s),$v1),$right($left($1,%r),1)) | dec %f } | return $hget(s,s)

Analiz:

1 Döngü
4 Değişken
6 Identifier
1 Hash

rtext unset %b %v | var %k $strip($1), %t $len(%k) | while %t { .set %b %b $right($left(%k,%t),1) | dec %t } | :. | var %h $token(%b,$r(1,$token(%b,0,32)),32) | .set %v $+(%v,%h) | .set %b $remtok(%b,%h,32) | $iif(!%b,return %v) | goto .

Analiz

2 döngü
5 değişken
6 identifier
1 Hash

rtext %x = | %c = | %d = $len($1) | var %b 1 | while ? { inc -u %a | %c = $addtok(%c,$r(1,%d),32) | if ($numtok(%c,32) >= %d) break } | while %b <= $numtok(%c,32) { %x = %x $right($left($1,$token(%c,%b,32)),1) | inc %b } | return $remove(%x,$chr(32))

2 döngü
5 değişken
7 identifier

alias _replace { return $replace($1-,a,$+(a,$chr(189)),b,$+(b,$chr(189)),c,$+(c,$chr(189)),d,$+(d,$chr(189)),e,$+(e,$chr(189)),f,$+(f,$chr(189)),g,$+(g,$chr(189)),ç,$+(ç,$chr(189)),?,$+(?,$chr(189)),h,$+(h,$chr(189)),?,$+(?,$chr(189)),i,$+(i,$chr(189)),j,$+(j,$chr(189)),k,$+(k,$chr(189)),l,$+(l,$chr(189)),m,$+(m,$chr(189)),n,$+(n,$chr(189)),o,$+(o,$chr(189)),ö,$+(ö,$chr(189)),p,$+(p,$chr(189)),r,$+(r,$chr(189)),s,$+(s,$chr(189)),?,$+(?,$chr(189)),t,$+(t,$chr(189)),u,$+(u,$chr(189)),ü,$+(ü,$chr(189)),v,$+(v,$chr(189)),y,$+(y,$chr(189)),z,$+(z,$chr(189)),x,$+(x,$chr(189)),w,$+(w,$chr(189)),q,$+(q,$chr(189))) }
alias faktoriyel { var %i = 1,%t = 1,%y = $calc($len($1) -1) | while %i <= $len($1) { inc %t $calc(%t * %y) | inc %i | dec %y } | return %t }
alias terscevir { var %i = 0 | while %i < $len($1) { var %kk $+(%kk,$gettok($_replace($1),$calc($len($1) - %i),189)) | inc %i } | return $right(%kk,$len($1)) } 
rtext {
  var %i = 1,%qt = $calc($faktoriyel($1) /2)
  set %qq $+($right($1,$calc($len($1) -1)),$left($1,1))
  while %i <= %qt {
    var %qq = $+($right(%qq,$calc($len($1) -1)),$left(%qq,1))
    echo -a  %qq
    inc %i
  }
  var %i = 1,%qt = $calc($faktoriyel($terscevir($1)) /2)
  set %qq $+($right($terscevir($1),$calc($len($terscevir($1)) -1)),$left($terscevir($1),1))
  while %i <= %qt {
    var %qq = $+($right(%qq,$calc($len($terscevir($1)) -1)),$left(%qq,1))
    echo -a  %qq
    inc %i
  }
}

Analiz:

Herşey bol bol kullanılmış :D