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

    −260.4

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    sub random {
	srand;
	RAND:
	my $rand = int(sprintf "%.f", 2 * rand() - 1) ^ int(sprintf "%.f", 2 * rand() - 1);
	goto RAND if $rand == 0;
	$rand = $rand > 0 ? 1 : 0;
	return $rand;
}

    шок и паника.

    Запостил: guest, 07 Июня 2009

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

    • ava guest 07.06.2009 15:02 # +1

      неперловщик:
      Я перл не знаю но чел походу пытался сгенерить рандом 1/0 офигенно длинным способом xDDDDDDDDDDDDDDDD
      Ответить

    • ava guest 03.08.2009 18:34 # +1

      Xaionaro:
      #1: Аха, только прыгает на RAND до тех пор пока $rand не будет чем-либо отличным от нуля, а потом, если $rand больше нуля (а меньше он быть не может, вроде как в данной ситуации) присваевает ему 1-цу....

      Т.е. генерит-генерит до тех пор, пока не выгенерит единицу :)
      Ответить

    • ava guest 11.08.2009 10:05 # +2

      Я плакал, мощно сделано.
      Ответить

    • ava guest 11.08.2009 11:52 # +2

      какое клёвое использование xor!
      int sprintf - тоже бодро :)
      Ответить

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