Mistři v programování na #hovnokod

Perl #503

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;
}

HovnoKod,