숫자 사이의 최소 차이

Question

우리는 K 개의 다른 숫자 집합을 가지고 있습니다. 더 높은 숫자와 낮은 숫자의 차이가 이되도록 각 세트에서 숫자를 선택해야합니다.

아이디어가 있으십니까?

Answer 1

이와 비슷한 것 (하스켈로 작성)?

import Data.List (minimum, maximum, minimumBy) 

minDiff (x:xs) = comb (head x) (diff $ matches (head x)) x where 
    lenxs = length xs 
    diff m = maximum m - minimum m 
    matches y = minimumBy (\a b -> compare (diff a) (diff b)) $ p [] 0 where 
    md = map (minimumBy (\a b -> compare (abs (a - y)) (abs (b - y)))) xs 
    mds = [m | m <- foldl (\b a -> filter (\z -> abs (z - y) == abs (y - md!!a)) (xs!!a) : b) [] [0..lenxs - 1]] 
    p result index 
     | index == lenxs = [y:result] 
     | otherwise  = do 
      p' <- mds!!index 
      p (p':result) (index + 1) 
    comb result difference []  = matches result 
    comb result difference (z:zs) = 
    let diff' = diff (matches z) 
    in if diff' < difference 
      then comb z diff' zs 
      else comb result difference zs 


OUTPUT: 
*Main> minDiff [[1,3,5,9,10],[2,4,6,8],[7,11,12,13]] 
[5,6,7]