Konu: Varyasyon
Tekil Mesaj gösterimi
  #1  
Alt 24 Şubat 2016, 09:58
CoCoRiCo - ait Kullanıcı Resmi (Avatar)
CoCoRiCo CoCoRiCo isimli Üye şimdilik offline konumundadır
 Chief 

mS Puan: 571
mS Derece: CoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo ÇalışkanCoCoRiCo Çalışkan
 
Üyelik tarihi: 10 Temmuz 2009
Bulunduğu yer: \xml:http\
Yaş: 41
Mesajlar: 135
Konular: 22
Eklentiler: 0
Alınan Teşekkür: 85
Yapılan Teşekkür: 19
Standart Varyasyon

Konu başlıgından da anlaşılacagı gibi bir varyasyon oluşturucu.
Amacı belirtilen kelimenin yada rakamların vasyasyonlarını olusturması.
önr:

kelimemiz "ABC"

istenen sonuç:
ABC
BAC
BCA
ACB
CAB
CBA

$variation(ABC) ve /variation ABC
ile sonuç vermelidir.

Kurallar:
17 harfden uzun kelimeyi çevirmemelidir.
10 haneli rakamdan fazlasını çevirmemelidir.
AA yada AAA gibi tekrar edenleri dönüştürmemesi.
aA gibi değerleri sorunsuz dönüştürmesi.
AAB gibi sonuçları sorunsuz döndürmesi.
Rakam ve harflerde sorunsuz çalışması.
Soket ve dışarıdan dönüşümler kabul edilmez.
com kullanımı yasaktır.
kodlar özel mesaj ile bana gönderilecektir.
en kısa kod ve en kısa sürede çalışanı kazanan kod olacaktır.
Katılım süresi 1 aydır.
bitiş süresi 31.04.2016 - 00:00

Bol şans.


Alıntı:
Çalışan kod.:
Kod:
alias variation { 
  if !$regex($1-,/(.)\1|(.){17}/) {  
    var %p 0,%c
    while ($regsub($1,/(.{ $+ %p $+ })(.)/,\1,%c)) $&
      scon -r inc $(%p |,) $iif(? iswm $1,$iif($isid,return,echo),variation %c) $2 $+ $regml(2)
  }
}
__________________
3m2t
//alias $str($+(alias,$chr(32)),4) | alias
Sponsored Links
 
1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76