Writing functions problems - list

Question

new R programming student here. I am trying to write a function following these guidelines:
Use sample() to randomly select m integers from a vector y.
If input values are less than or equal to 100 & divisible by 3, then assign these values into a vector s.
If input values are greater than 100 & divisible by 4, then assign these values into a vector d.
Return a list l which contains the selected me integers, s & d.
Do not use the function which()
Apply the function to a smaple which contains 20 randomly selected integers from vec = c(1:200). Show the output.
Below is the code I'm using. I have a couple of problems:
1) I don't understand where to input the m to select a specified number of integers from vector y.
2) I can't get my list to separate into labels for s & d vectors.
Any help would be much appreciated!
# Write function for problem
myfun <- function(y){
x <- sample(y) # I need to selected m integers from vector y; why doesn't sample(y, m) work here?
s <- NULL
d <- NULL
for (i in x){
if (i%%4==0 && i>100){
d <- print(i)
}
}
for (i in x){
if (i%%3==0 && i<=100){
s <- print(i)
}
}
l <- sapply() # trying to combine vectors s & d into a list
l[["d"]] <- d # trying to label values in vector d
l[["s"]] <- s # trying to label values in vector s
return(l)
}
myfun(aa) # prints correct numbers, but not properly labeled.
myfun(bb) # prints correct numbers, but not properly labeled.
vec = c(1:200) # make vector of integers from 1-200.
myfun(vec, 20) # run myfun on vector vec with 20 samples selected. Does not work; don't know where
to put m in function.