Kullanımı: /rnd <text> veya $rnd(<text>)
Örnek: /rnd abc veya $rnd(abc)
Sonuç: Kod: Kodu kopyalamak için üzerine çift tıklayın!
bac
cba
abc
acb
abc
cba
cba
bac
acb
abc
acb
cba
-
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias rnd {
var %f $1, %l $len($1), %r1 $r(1,%l), %r2 $r(1,%l)
var %fr $mid(%f, %r1, 1), %sc $mid(%f, %r2, 1), $&
%frs $regsubex(%f,/(?<=\S(?=\S))/g,$chr(160))
var %fx $puttok(%frs, %fr, %r2, 160), $&
%fy $puttok(%fx, %sc, %r1, 160)
$iif($isid, return, echo -a) $remove(%fy,$chr(160))
}
Not: Challenge olmayınca çok şeyapmaya gerek yok.
Tüm ihtiyarlara selam olsun.