1. Perl / Говнокод #4592

    −122

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    sub generate_code {
	my ($arrey_pos,$code);
	my @arrey = ('a'..'q', 'C'..'O', '1'..'9', 'g'..'u', 'l'..'z', '9'..'1', 'H'..'W');

	for (my $i = 0; $i < $_[0]; $i++) {
		$arrey_pos = int(rand($#arrey));
		$code .= $arrey[$arrey_pos];
	}
	$code;
}

    Генерация кода.

    Запостил: Arigato, 11 Ноября 2010

    Комментарии (17) RSS

    • ava Lure Of Chaos 11.11.2010 20:13 # +2

      > arrey
      мамо, я же не засну, это ж надо ТАК написать О_О
      Ответить

      • ava Arigato 11.11.2010 20:17 # +1

        Меня тут заинтересовало это:
        my @arrey = ('a'..'q', 'C'..'O', '1'..'9', 'g'..'u', 'l'..'z', '9'..'1', 'H'..'W');
        может кто объяснить смысл?
        Ответить

        • ava Lure Of Chaos 11.11.2010 20:24 # 0

          http://govnokod.ru/4533 the same shit
          Ответить

        • ava Oleg_quadro 11.11.2010 21:00 # +2

          Это вопрос-шутка?
          Я, всё-таки отвечу,
          'a'..'q' - заменяет список символов от 'a' до 'q'
          Ответить

          • ava Arigato 11.11.2010 21:32 # 0

            > 'a'..'q' - заменяет список символов от 'a' до 'q'

            А может подумать лучше, что же я спросил. То, что оно заменяет, я и так знаю, вопрос в том, к чему такая комбинация...
            Ответить

          • ava bildja 12.11.2010 01:18 # +1

            Почему именно 'a'..'q', 'C'..'O'
            Я тоже не понял
            Ответить

            • ava Oleg_quadro 13.11.2010 01:22 # 0

              Фиг знает. может хотел автор двойной рандом сделать: rand при обращении, и случайный порядок букв в массиве. )
              Ответить

    • ava istem 11.11.2010 20:37 # 0

      > Генерация кода.
      Ипать Матвеич...
      Генерация "Core2Duo" на бейсике
      Генерация "Windows7" через Word и макросы
      Генерация "iPhone" на smarty...
      Ответить

    • ava Oleg_quadro 11.11.2010 22:14 # 0

      '9'..'1' - говно. это не срабатывает.
      Ответить

      • ava Arigato 11.11.2010 22:16 # 0

        А так: 'C'..'O', 'H'..'W' или 'a'..'q', 'g'..'u', 'l'..'z' выдаст пересекающиеся последовательности. Т.е. вероятность появления некоторых символов выше.
        Ответить

        • ava istem 11.11.2010 22:59 # 0

          Вероятность уже обмусоливалась в http://govnokod.ru/4533
          Ответить

    • ava bugmenot 12.11.2010 06:30 # +1

      плюсую только за аррейский акцент
      Ответить

    Добавить комментарий