求一个多元一次函数的可能解

love_wisdom

这样可以不，你等我，我出一个pascal版的，你要不？

NO_Getway

回复 21# love_wisdom


   可以啊，猜想能可能能看懂pascal逻辑。

rubyish

~ lai ge perl
perl abc.pl > result
cat result

1. #!/usr/bin/perl
   
2. # abc.pl
   
3. 
   
4. my @A = ( 8, 1, 4, 2, 7, 3, 5, 6 );
   
5. my $B = 30;
   
6. my @C = sort { $b <=> $a } @A;
   
7. 
   
8. my @index = sort { $A[$b] <=> $A[$a] } 0 .. $#A;
   
9. @index = sort { $index[$a] <=> $index[$b] } 0 .. $#index;
   
10. 
    
11. sub gimme {
    
12.     my ( $num, $head, @tail ) = @_;
    
13.     return $num % $head ? () : [ $num / $head ] unless @tail;
    
14.     map {
    
15.         my $h = $_;
    
16.         map { [ $h, @$_ ] } gimme( $num - $h * $head, @tail )
    
17.     } 0 .. $num / $head;
    
18. }
    
19. 
    
20. my @result = map [ @$_[@index] ], gimme $B, @C;
    
21. 
    
22. for my $r (@result) {
    
23.     print join ' + ', map { "$r->[$_]*$A[$_]" } 0 .. $#$r;
    
24.     print " = $B$/";
    
25. }
    
26. 
    
27. print 'total = ', ~~ @result, $/;
    
28. 
    
29. __DATA__
    
30. 
    

复制代码

Linux_manne

都很nice 学习中。。

NO_Getway

回复 8# Hadron74


    这哥们 忘了给你说谢谢了，不错，就是a和b很长或者很大的时候运行很慢了

NO_Getway

回复 23# rubyish


    perl符号太多了，查查语法再看看，谢谢

rubyish

回复 26# NO_Getway
biru:

a = ( 4, 3, 8, 2, 6 )
b = 13

sort a: da <--> xiao

1. 8 6 4 3 2       13
   
2. ------------------
   
3. 0 0 0 0 6.5     X
   
4. 0 0 0 1 5
   
5. 0 0 0 2 3.5     X
   
6. 0 0 0 3 2
   
7. 0 0 0 4 0.5     X
   
8. 0 0 1 0 4.5     X
   
9. 0 0 1 1 3
   
10. 0 0 1 2 1.5     X
    
11. 0 0 1 3 0
    
12. 0 0 2 0 2.5     X
    
13. 0 0 2 1 1
    
14. 0 0 3 0 0.5     X
    
15. 0 1 0 0 3.5     X
    
16. 0 1 0 1 2
    
17. 0 1 0 2 0.5     X
    
18. 0 1 1 0 1.5     X
    
19. 0 1 1 1 0
    
20. 0 2 0 0 0.5     X
    
21. 1 0 0 0 2.5     X
    
22. 1 0 0 1 1
    
23. 1 0 1 0 0.5     X
    
24. ------------------
    
25. total = 21
    
26. NG :13, OK : 8

复制代码