#devschuur@irc.tweakers.net: 16:28 < Tanooki> Weet iemand welk algoritme ik zou moeten gebruiken om het volgende te doen? Ik moet een nummer van 9 cijfers bruteforcen, waarvan ik 6 cijfers weet. Ik moet dus met dat algoritme een lijst maken van alle nummers die ik moet proberen (dus xxxxxx000, xxxxxx001, xxxxxx002, etc. maar ook 9xxxxxx11, 98xxx…

gistfile1.hs

module Combinaties where
import Data.List


deleteFromHead :: Eq a => a -> [a] -> [a]
deleteFromHead x [] = []
deleteFromHead x (y:ys)
  | x == y     =  ys
  | otherwise  =  (y:ys)


generate :: Eq a => Int -> [a] -> [a] -> [[a]]

generate n values knowns = generate' n knowns
  
  where
  
    -- base cases
    generate' 0 []      =  [[]]
    generate' 0 knowns  =  []
    
    -- recursive cases
    generate' n []      =  [v : subsolution | v <- values, subsolution <- generate' (n-1) []]
    generate' n knowns  =  let values' = nub (values ++ knowns) in 
                           [v : subsolution | v <- values', subsolution <- generate' (n-1) (deleteFromHead v knowns)]



test = generate 9 ['0'..'9'] "783659"

-- length test == 64234  -- (216.20 secs, 250246530152 bytes)

(Awesome, I created the gist when I wasn't logged in... :p)