#!/usr/bin/perl

niektore_zdarzenia {
   return 1 - &zadne_zdarzenie;
}

print niektore_zdarzenia(0.64, 0.52, 0.5);

sub zadne_zdarzenie {
	my $wynik = 1;
	while ( @_ ) {
		$wynik *= (1  shift);
	}
	return $wynik;
}

