ラケットは、二つの異なるサイズのリスト

Question

にリストを分割

このコードは2つの同じサイズのリストのリストを分割しますたとえば、0.20,0.50,0.63などです。最初のリストに移動する数値（単位は％）です。

Answer 1

これを行う方法の1つです。

ヘルパー機能split-atを使用する代わりに、splitという機能を使用できます。

#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))