编写一个函数，它的输入是由正整数组成的向量，返回这个向量中的每个立方数
创始人
2024-12-06 19:01:19
0次 
cubenumbers <- function(x) {
  result <- c()
  for (i in x) {
    root <- round(i^(1/3))
    if (root^3 == i) {
      result <- c(result, i)
    }
  }
  return(result)
}

使用示例：

> x <- c(1, 4, 9, 27, 16, 8)
> cubenumbers(x)
[1] 1 27 8

在上面的代码中，我们定义了一个名为“cubenumbers”的函数，它期望一个包含正整数的向量作为输入，并返回其中每个立方数的向量。对于输入向量中的每个元素，我们计算它的立方根，假如其立方等于该元素，则将其添加到结果向量中。最后，我们返回结果向量。在本示例中，我们将函数的输出存储在“result”变量中，然后返回它。我们还使用一个循环来遍历输入向量中的每个元素。

上一篇：编写一个函数，它从列表中返回所有偶数并将它们折半。

下一篇：编写一个函数，它返回字符串中的单词（删除字符串中的字符）。

相关内容

热门资讯

微扑克辅助挂！微扑克有辅助挂，... 微扑克辅助挂！微扑克有辅助挂，微扑克辅助哪里有卖，2025新版总结（有挂解说）1、每个玩家都可以进行...
研究成果!掌酷十三张刷分有用吗... 研究成果!掌酷十三张刷分有用吗(辅助挂)真是真的是有挂(2024已更新)(哔哩哔哩)运掌酷十三张刷分...
wepokeai代打的胜率!w... wepokeai代打的胜率!wopoker辅助(辅助挂)wepOkE(好像真的有挂)；wopoker...
微扑克ai辅助!微扑克辅助器是... 微扑克ai辅助!微扑克辅助器是骗人(透明挂)确实真的是有挂1、完成微扑克透视辅助安装，帮助玩家取得所...
盘点一款!闽游在线有挂吗(辅助... 盘点一款!闽游在线有挂吗(辅助)总是是有挂(2022已更新)(哔哩哔哩)；1.闽游在线有挂吗 ai辅...
wepoke透明挂黑科技！we... wepoke透明挂黑科技！wepoke开发者，德州wepower果真真的有挂，解密教程（有挂细节）；...
微扑克游戏辅助器！微扑克有挂，... 微扑克游戏辅助器！微扑克有挂，WPK切实真的是有挂，黑科技教程（有挂教学），亲，有的，ai轻松简单，...
揭秘一下!边锋保皇辅助工具(透... 揭秘一下!边锋保皇辅助工具(透视辅助)一贯是真的有挂(2025已更新)(哔哩哔哩)；亲，关键说明，边...
解密教程!wepoke人有挂(... 解密教程!wepoke人有挂(wepoke真的有挂)wepOke(其实真的有挂)；科技详细教程小薇《...
微扑克辅助器ios！微扑克系统... 一、微扑克简介了解软件请加微：136704302微扑克是一款在线扑克游戏平台，玩家可以在平台上进行多...