Kod: Kodu kopyalamak için üzerine çift tıklayın!
on 1:input:*:{
if $left($1,1) != / {
say $regsubex($regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+(,\1,),$+($upper($left(\1,1)),$mid(\1,2-)))),/(.)/g,$iif(2 \\ \n,$+($chr(2),\1,$chr(2)),\1)))
halt
}
}
bunu denermisin Kod @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] e aittir.