Author Topic: Генератор слова  (Read 2258 times)

0 Members and 1 Guest are viewing this topic.

selevo

  • Зашел в гости
  • *
  • Posts: 4
    • View Profile
Генератор слова
« on: November 06, 2014, 02:11:41 PM »
с параметрами 
l - длина слова
d - EWFSDFwefr43546%$^#$%  (из этого набора символов будет создано слово)

« Last Edit: November 06, 2014, 03:01:35 PM by Johnny »

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
Ага. И маму в дом. Только мамы нам и не хватало...
Code: (clickermann) [Select]
$l = 5  // длина слова
$s = "EWFSDFwefr43546^%"
$word = ""
FOR($i=0, $i<$l)
   $word = STRCONCAT($word, STRCUT($s, RND(1,STRLEN($s)), 1))
END_CYC



selevo

  • Зашел в гости
  • *
  • Posts: 4
    • View Profile
)))
это же  целых 6  строк!
Но тож  подойдёт
,благодарю.

Vint

  • Супермодератор
  • Герой форума
  • *
  • Posts: 3935
  • Лечу куда хочу. cman 4.13.014x32, 4.14.003 W10
    • View Profile
А чего их экономить? Вот 4 строки:
Code: (clickermann) [Select]
$word = ""
FOR($i=0, $i<5)  // длина слова
   $word = STRCONCAT($word, STRCUT("EWFSDFwefr43546^%", RND(1,STRLEN("EWFSDFwefr43546^%")), 1))
END_CYC

то же, только сбоку