SML: Wie Elemente einer Liste in eine andere neue Liste mit Bedingungen einfügen?

Question

Ich habe eine Liste und einen Wert, wie kann ich Elemente der Liste in eine neue Liste einfügen, bis die Summe dieser Elemente diesen Wert nicht überschreitet?

Die Frage ist, wie man die oben erwähnte neue Liste und Anfangsliste ohne Elemente der neuen Liste zurückgibt? Zum Beispiel habe ich eine Liste [13,8,7,6,4,2,2,1] und einen Wert 21. Also möchte ich die Elemente dieser Liste in eine neue Liste einfügen, deren Summe less than or equal to 21 ist. In diesem Beispiel wird eine neue Liste und 13,8 muss aus der ursprünglichen Liste entfernt werden.

so dass die endgültige Ausgabe der Funktion sollte zwei Listen sein: [13,8], [7,6,4,2,2,1]

ich diesen Code geschrieben haben, aber es hat einige verwirrende Fehler:

fun Scheduler (w:Wopt , L:PTList)= 
    let 
     val ptl1=[List.hd L] 
     val TempL=L 
     val head=List.hd L 
    in 
     if ListSum(ptl1) = w 
     then (ptl1, Delete(L)) 
     else (
     if ListSum(ptl1) + head <= w 
     then Scheduler(Insert(head,ptl1), Delete(TempL)) 
     else (ptl1,Delete(L)) 
    ) 
    end 

Answer 1

fun splitFor n [] = ([], []) 
    | splitFor n (x::xs) = 
    if x > n then ([], x::xs) else 
    let val (ys, zs) = splitFor (n - x) xs 
    in (x::ys, zs) end 

(* Example *) 
val (a, b) = splitFor 21 [13,8,7,6,4,2,2,1]