$ diff choroba.pl 1nickt.pl 8,9c8,11 < push @seq, ( $seq[-1] / 2, 3 * $seq[-1] + 1 )[ $seq[-1] % 2 ] < while $seq[-1] != 1; --- > while ( $n != 1 ) { > $n = $n % 2 ? 3 * $n + 1 : $n / 2; > push @seq, $n; > }