Erlang/OTP Forums

-module(readlines3).
-compile([export_all]).

%Aufgabe3 -> Datei einlesen, sortieren und wieder ausgeben.
sort(File1,File2) ->
   {ok, Datei_Lesen} = file:read_file(File1),
   
   %Schreibe in Liste die komplette Datei. Wandle die Datei in eine Liste um und trenne Die Wörter nach dem Leerzeichen.
   Liste = string:tokens(erlang:binary_to_list(Datei_Lesen), " "),
   
   %Sortiere die Liste mit Quicksort
   Sortierte_Liste = quicksort(Liste),
   
   %Schreiben der sortierten Liste in die zweite Datei.
   {ok,Datei_Schreiben} = file:open(File2, write),
   file:write(Datei_Schreiben, Sortierte_Liste),
   file:close(Datei_Schreiben).
   
   
quicksort([])->[];
quicksort([X|XS])-> quicksort([Y||Y<-XS,Y<X])++[X]++quicksort([Y||Y<-XS,Y>X]).