OpenForum RSS: ��

�� (kotz80)

Tue, 06 Apr 2010 14:39:18 GMT

>[�� ]
> do {
> show($input);
> } while (make_next($input));
>} # sub
># ====================================
>my($fname, $input);
>$fname = "/tmp/input.txt";
>
>$input = load($fname);
>produce($input);

� �� ?? � �� , �� - ��

�� (Maxim Kuznetsov)

Fri, 22 Jul 2005 08:05:23 GMT

�� ;-)
�� ..
�� : �� 32 �� -�� 2 ��,
�� 32, � ��-�� 2^32..

�� - �� ;-)

�� (Cforest)

Wed, 20 Jul 2005 15:41:46 GMT

��, �� , �� , �� Copy-Paste. :(
�� .

�� (Cforest)

Wed, 20 Jul 2005 15:38:03 GMT

Ihor, ��!

�� (��, �� - �� ). �� - �� . �� !

#!/usr/bin/perl

sub get_element {
my ($array, $variant) = @_;
if ($array == $#rows) {
for $element (0 .. $#{ $rows[$array] }) {
print Result join (" ", @{ $variant });
print Result " ", $rows[$array][$element], "\n";
}
} else {
for $element (0 .. $#{ $rows[$array] }) {
my @incomplete_variant = @{ $variant };
push @incomplete_variant, $rows[$array][$element];
my $inner_array = $array + 1;
get_element($inner_array, \@incomplete_variant);
}
}
}

open (List, "list.txt") or die "Can't read list $!";
while (<List>) {
push @rows, [ split ];
}
close(List);

open (Result, "> result.txt") or die "Can't write results $!";

for $i (0..$#{ $rows[0] }) {
my @variant;
push (@variant, $rows[0][$i]);
get_element(1

�� (ihor)

Wed, 20 Jul 2005 14:37:53 GMT

�� - �� , �� .
�� :
=====================================
#!/usr/local/bin/perl

use strict;
# ====================================
sub load {
my($fname) = @_;
my(@vals, @res, $str);

open(FILE, $fname) || die "Can't open $fname!";
while (defined ($str = <FILE>)) {
@vals = split(/\s+/, $str);
push(@res, [0, $#vals, [@vals]]);
} # while
close(FILE);
return \@res;
} # sub

# ====================================
sub make_next {
my($input) = @_;
my($i, $m, $carry);
$carry = 1;

for ($i = $#{$input}; $i >= 0; $i--) {
$m = ${${$input}[$i]}[0] + $carry;
if ($m > ${${$input}[$i]}[1]) {
${${$input}[$i]}[0] = 0;
} else {
$carry = 0;
${${$input}[$i]}[0] = $m;
last;
} # else
} # for

return 1 if $carry == 0;
return 0;
} # sub
# ====================================
sub show {
my($input) = @_;
my($elem, @idxs, @vals, $src);

foreach $elem (@{$input}) {
push

�� (Maxim Kuznetsov)

Wed, 20 Jul 2005 14:05:30 GMT

� �� ?
�� ...

OpenForum RSS: ������� ���������

������� ��������� (kotz80)

������� ��������� (Maxim Kuznetsov)

������� ��������� (Cforest)

������� ��������� (Cforest)

������� ��������� (ihor)

������� ��������� (Maxim Kuznetsov)

OpenForum RSS: ��

�� (kotz80)

�� (Maxim Kuznetsov)

�� (Cforest)

�� (Cforest)

�� (ihor)

�� (Maxim Kuznetsov)