菜鸟碰到难题，请大牛们指点一二

千年老狼

5位跳水运动员参加跳水比赛，有人让他们预测比赛结果
A选手说：B第一，我第三。
B选手说：我第二，E第四。
C选手说：我第一，D第二。
D选手说：C最后，我第三。
E选手说：我第四，A第一。
比赛结果是每位选手都说对了一般，请编程确定比赛的结果
用C编写
自己不才，尝试写了点代码，可惜都是错的，
这里就不贴出来让大牛们笑话了

千年老狼

呵呵 度娘居然有答案了

NalaGinrut

你贴到FP版是想要FP的答案吗？
我看了下百度上那些O(n^5)的算法...我给出一个通用的Scheme算法好了，不过这个算法只能求出一个可能值，要求出所有可能值需要一些改进

1. 
   
2. (use-modules (srfi srfi-1))
   
3. 
   
4. (define *test*
   
5.   '(((B 1) (A 3))
   
6.     ((B 2) (E 4))
   
7.     ((C 1) (D 2))
   
8.     ((C 5) (D 3))
   
9.     ((E 4) (A 1))))
   
10. 
    
11. (define (do-the-math)
    
12.   (let lp((rest *test*) (last '()) (w 'l) (result '()))
    
13.     (if (null? rest)
    
14.         (print-it result)
    
15.         (let* ((e ((if (eq? w 'l) car cadr) (car rest)))
    
16.                (m (assoc-ref result (car e))))
    
17.           (cond
    
18.            ((and (or (not m) (= (car m) (cadr e)))
    
19.                  (not (find (lambda (x) (= (cadr x) (cadr e))) result)))
    
20.             (lp (cdr rest) (car rest) 'l (cons e result))) ;; add
    
21.            ((null? (cdr rest))
    
22.             (call-with-values
    
23.                 (lambda () (unzip2 result))
    
24.               (lambda (a b)
    
25.                 (let ((k (lset-xor eq? '(A B C D E) a))
    
26.                       (l (lset-xor = '(1 2 3 4 5) b)))
    
27.                   (lp '() #f #f (cons `(,@k ,@l) result))))))
    
28.            (else
    
29.             (if (eq? w 'l)
    
30.                 (lp rest rest 'r result) ;; try right
    
31.                 (lp (append last rest) '() 'l (cdr result))))))))) ;; rollback
    
32. 
    
33. (define (print-it ll)
    
34.   (for-each (lambda (x)
    
35.               (display (car x)))
    
36.             (sort ll (lambda (x y) (< (cadr x) (cadr y)))))
    
37.   (newline))
    

复制代码

打印结果： BDAEC

即便是N个人M种猜测，也可以直接套用。

千年老狼

回复 3# NalaGinrut


    呵呵呵 ，又涨见识了，虽然看不懂，不过，谢谢

a52527459

1. 
   
2. typedef struct{
   
3.         char a;
   
4.         int b;
   
5. }yuce_t;
   
6. typedef struct{
   
7.         yuce_t s1;
   
8.         yuce_t s2;
   
9. }humenSaying;
   
10. 
    
11. 
    
12. 
    
13.         humenSaying a={{'b',1},{'a',3}};
    
14.         humenSaying b={{'b',2},{'e',4}};
    
15.         humenSaying c={{'c',1},{'d',2}};
    
16.         humenSaying e={{'c',5},{'d',3}};
    
17.         humenSaying d={{'e',4},{'a',1}};
    
18.        
    
19.         yuce_t yuce[5]={{'a',0},{'b',0},{'c',0},{'d',0},{'e',0}};
    
20.        
    
21. 
    

复制代码

结果 是确定的，所以可以 对所有结果进行设置，然后依次 对 上面的话语进行验证，如果错误，此种结果为假。
直到 为真。
这只是想法，代码 现在 还没写完。

a52527459

唉 遗憾，看到 百度的答案 太简单了。。
我到时麻烦，还需要 组合 的知识。。都忘记了。。。

偏花七星

NalaGinrut 发表于 2012-05-15 22:14
你贴到FP版是想要FP的答案吗？
我看了下百度上那些O(n^5)的算法...我给出一个通用的Scheme算法好了，不过这 ...

给一个Haskell的

1. import Data.List(permutations)
   
2. main = print [ (a,b,c,d,e) | (a:b:c:d:e:_) <- permutations [1..5], (b==2) /= (a==3), (b==2) /= (e==4), (c==1) /= (d==2), (c==5) /= (d==3), (e==4) /= (a==1)]

复制代码

运行结果：

*Main> main
[(3,1,5,2,4)]