어떻게 목록을 만드시겠습니까?

Question

두 인수를받는 함수를 작성하려면 : 벡터 = V와 수 = X, 두 개의리스트를 반환합니다. 첫 번째는 V와 X가 같거나 같은 모든 자릿수를 포함하는 벡터입니다. 두 번째 벡터들 반복 숫자를 포함

Answer 1

공짜 금요일 (숫자 자체를 반복하는 경우가 한 번 이상 나타나지 않아야합니다) 안 X. 위에있는 숫자의 벡터 ...

fun <- function(x, v) 
{ 
    z <- unique(v) 
    list('<=' = z[z<=x], '>' = z[z>x]) 
} 

> set.seed(152) 
> X <- 5 
> V <- sample(15, 100, TRUE) 
> fun(X, V) 
# $`<=` 
# [1] 4 2 1 3 5 
# 
# $`>` 
# [1] 15 12 10 9 11 8 7 14 13 6