编辑代码

function.firsthomework <- function(a)
{
    list_data <- list()
    i <- 1
    repeat {
        list_data[[i]] <- sample(1:10, size=3, replace=TRUE)
        i <- i + 1
        if (i > a) break
    }
    return(list_data)
}
str <- function.firsthomework(4)
# write.table(str, file="/path")
print (str)