|
aias Nickli Üyeden Alıntı
|
alias _rands {
var %t $r(5,10) , %i 1 , %r
while %i <= %t {
var %p $r(1,2) , %k $r(1,2)
%r = $+(%r,$iif(%p == 1,$iif(%k == 1,$r(a,z),$r(A,Z)),$gettok(a.e.i.o.u,$r(1,5),46)))
inc %i
}
return %r
}
|
Bu benim yazdigim $_rands v1 idi. Tam olmasa da bir kac cozum uretilmisti. V2'yi vereyim size, asil cozumsuz olani
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias _rands {
var %i 1 , %l $r(2,8) , %r
while $len(%r) <= %l {
var %o 1 , %u , %y
while %o <= 3 {
$iif($istok(a.e.i.o.u,$left($right(%r,%o),1),46),inc %u,inc %y)
inc %o
}
var %k $iif(%u >= 2,1,$iif(%y >= 3,2,$r(1,2))) , %x $r(a,z)
while $iif(%k == 1,$istok(a.e.i.o.u,%x,46),!$istok(a.e.i.o.u,%x,46)) {
%x = $r(a,z)
}
%r = $+(%r,%x)
}
return %r
}