Schläger, eine Liste in zwei verschiedenen Größen Listen aufgeteilt

Question

Dieser Code teilt eine Liste in zwei gleich große Listen:

(define (split ls) 
    (if (or (null? ls) (null? (cdr ls))) 
     (list ls '()) 
     (let ((next (split (cddr ls)))) 
     (list (cons (car ls) (car next)) 
       (cons (cadr ls) (cadr next)))))) 

Ich möchte einen Code erstellen (define (split Größe ls)), wobei Größe a hat Wert, zum Beispiel: 0.20, 0.50, 0.63 und es ist die Zahl (in%), die zur ersten Liste gehen wird.

Answer 1

Hier ist eine Möglichkeit, es zu tun.

Anstatt die Hilfsfunktion split-at zu verwenden, könnte man Ihre Funktion split verwenden.

#lang racket 

; clamp : number number -> number 
; make sure x is in the interval [a;b], 
; if not return a or b. 
(define (clamp x a b) 
    (max (min x b) a)) 


; split-list : number list -> list list 
; return two values: 
;  - appending the two lists will produce the a list equal to the input list xs 
(define (split-list pct xs) 
    ; find the position to split the list 
    (define pos (exact-round (* (clamp pct 0.0 1.0) (length xs)))) 
    ; split it 
    (split-at xs pos)) 

(split-list 0.00 '(a b c d)) 
(split-list 0.25 '(a b c d)) 
(split-list 0.50 '(a b c d)) 
(split-list 0.75 '(a b c d)) 
(split-list 1.00 '(a b c d))