🚀 go-pugleaf

"Nicolas Barbier" <reply@in.group.invalid> schreef in bericht
news:4012dcd5$0$1112$6c56d894@feed0.news.be.easynet.net...
> suzy wrote:
>
> > stel je hebt 8 getallen en je trekt er 5 uit dan krijg je versch comb
>
> Hmm, volgens mij heb je de volgende regels verkeerd gequote. Zie hiervoor
> <url:http://www.briachons.org/art/quote/> (blijkbaar bestaat de versie op
> houghi's site niet meer). Zie hetzelfde document voor uitleg over
> "topposten" en waarom sommigen daar een slecht humeur van krijgen.
>
> >> mogelijkheden:
> >>       1 2 3 4 5
> >>       1 2 3 4 6
> >>       1 2 3 4 7
> >>       1 2 3 5 6
> >>       1 2 3 5 7
>
> Eigenaardige volgorde, hoe ben je hieraan gekomen?
>
> (snipperdesnip)
>
> >> infeite is het de verconcretisering van de hypergeometrische verdeling
>
> Could be :-). Ik noem het meestal gewoon "combinaties" ;-).
>
> >> nu kan dit in een soort box waar je variabelen kan wijzigen?
>
> Mja, de GUI zal je er zelf aan moeten plakken.
>
> >> aantal getallen:
> >> grootte van de trekking:
> >> de voorwaarde moet ik nog geven
>
> Welke voorwaarde?
>
> >> maar wil eerst zekerheid of je het kan
>
> Twijfel je daaraan? ;-)
>
> >> in welk taal ga je schrijven?
>
> Haskell, ik moet het toch ooit oefenen ;-).
>
> comb 0 y p = [p]
> comb x y p = foldr (++) [] [ comb (x - 1) (a - 1) (a:p) | a <- [1 .. y], x
> <= a ]
>
> main = do
>         putStr "Geef het aantal trekkingen\n"
>         aantal <- getLine
>         putStr "Geef het aantal getallen\n"
>         totaal <- getLine
>         putStr (show (comb (read aantal) (read totaal) []) ++ "\n")
>
> Een voorbeeldje:
>
> itsme@stoned:~$ ghc -o comb comb.hs && ./comb
> compilation IS NOT required
> Geef het aantal trekkingen
> 5
> Geef het aantal getallen
> 8
> [[1,2,3,4,5],[1,2,3,4,6],[1,2,3,5,6],[1,2,4,5,6],[1,3,4,5,6],[2,3,4,5,6]
> [1,2,3,4,7],[1,2,3,5,7],[1,2,4,5,7],[1,3,4,5,7],[2,3,4,5,7],[1,2,3,6,7]
> [1,2,4,6,7],[1,3,4,6,7],[2,3,4,6,7],[1,2,5,6,7],[1,3,5,6,7],[2,3,5,6,7]
> [1,4,5,6,7],[2,4,5,6,7],[3,4,5,6,7],[1,2,3,4,8],[1,2,3,5,8],[1,2,4,5,8]
> [1,3,4,5,8],[2,3,4,5,8],[1,2,3,6,8],[1,2,4,6,8],[1,3,4,6,8],[2,3,4,6,8]
> [1,2,5,6,8],[1,3,5,6,8],[2,3,5,6,8],[1,4,5,6,8],[2,4,5,6,8],[3,4,5,6,8]
> [1,2,3,7,8],[1,2,4,7,8],[1,3,4,7,8],[2,3,4,7,8],[1,2,5,7,8],[1,3,5,7,8]
> [2,3,5,7,8],[1,4,5,7,8],[2,4,5,7,8],[3,4,5,7,8],[1,2,6,7,8],[1,3,6,7,8]
> [2,3,6,7,8],[1,4,6,7,8],[2,4,6,7,8],[3,4,6,7,8],[1,5,6,7,8],[2,5,6,7,8]
> [3,5,6,7,8],[4,5,6,7,8]]
>
> >> vb?
>
> Voorbeeld?
>
> >> als er reeksen getallen uitkomen kan ik ze dan niet kop in excel?
>
> Wat bedoel je met "kop"?
>
> (snip onderkant van toppost)
>
> --
> Nicolas Barbier
> Protecting innovation against patent inflation
<url:http://swpat.ffii.org/>


bedankt nicolas
kop is kopieren
mvg suzy