« list.GetSlice(x,y) | Main| Dual Quicksort f# »

F# Quicksort

10
Category  
Diesmal habe ich mich an einem Quicksort versucht,
der Vorteil einer Funktionalen Sprache ist, dass er schön kurz ist.

Gruß JJR

let rec quicksort list =
   match list with
   | [] ->                            
        []                            
   | firstElem::otherElements ->      
        let smallerElements =        
            otherElements            
            |> List.filter (fun e -> e < firstElem)
            |> quicksort              
        let largerElements =          
            otherElements
            |> List.filter (fun e -> e >= firstElem)
            |> quicksort              
        smallerElements @ [firstElem] @largerElements

let rand = System.Random()
let data = List.init 50 (fun x -> rand.Next())
printfn "%A" (quicksort data)
System.Console.ReadLine()

Post A Comment

:-D:-o:-p:-x:-(:-):-\:angry::cool::cry::emb::grin::huh::laugh::lips::rolleyes:;-)

Amazon


Impressum

Firmenname: Peanuts-Soft
Straße Nummer: Biinger Strasse 8
PLZ Ort: 55263 Wackernheim
Telefon: +491772134526
E-Mail: joerg.reck @ peanuts-soft.de
Disclaimer: Peanuts-Soft übernimmt keine Garantie dafür, dass die auf dieser Website bereitgestellten Informationen vollständig, richtig und stets aktuell sind. Dies gilt auch für alle Links, auf die verwiesen wird. Peanuts-Soft ist für die Inhalte, auf die per Link verwiesen wird, nicht verantwortlich. Peanuts-Soft haftet nicht für konkrete, mittelbare und unmittelbare Schäden oder Schäden, die durch fehlende Nutzungsmöglichkeiten, Datenverluste oder entgangene Gewinne – sei es aufgrund der Nichteinhaltung vertraglicher Verpflichtungen, durch Fahrlässigkeit oder eine andere unerlaubte Handlung – im Zusammenhang mit der Nutzung von Dokumenten oder Informationen bzw. der Erbringung von Dienstleistungen entstehen, die auf dieser Web Site zugänglich sind.
Datenschutz: Inhalt und Gestaltung der Internetseiten sind urheberrechtlich geschützt. Eine Vervielfältigung der Seiten oder deren Inhalte bedarf der vorherigen schriftlichen Zustimmung von Peanuts-Soft.


Locations of visitors to this page

Powered By

Domino BlogSphere
Version 3.0.2