编写一个函数，它的输入是由正整数组成的向量，返回这个向量中的每个立方数
创始人
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”变量中，然后返回它。我们还使用一个循环来遍历输入向量中的每个元素。

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

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

相关内容

热门资讯

记者揭秘!智星菠萝辅助(透视辅... 记者揭秘!智星菠萝辅助(透视辅助)拱趴大菠萝辅助神器,扑克教程(有挂细节)；模式供您选择，了解更新找...
一分钟揭秘!约局吧能能开挂(透... 一分钟揭秘!约局吧能能开挂(透视辅助)hhpoker辅助靠谱,2024新版教程(有挂教学)；约局吧能...
透视辅助!wepoker模拟器... 透视辅助!wepoker模拟器哪个好用(脚本)hhpoker辅助挂是真的,科技教程(有挂技巧)；囊括...
透视代打!hhpkoer辅助器... 透视代打!hhpkoer辅助器视频(辅助挂)pokemmo脚本辅助,2024新版教程(有挂教程)；风...
透视了解!约局吧德州真的有透视... 透视了解!约局吧德州真的有透视挂(透视脚本)德州局HHpoker透视脚本,必胜教程(有挂分析)；亲，...
六分钟了解!wepoker挂底... 六分钟了解!wepoker挂底牌(透视)德普之星开辅助,详细教程(有挂解密)；德普之星开辅助是一种具...
9分钟了解!wpk私人辅助(透... 9分钟了解!wpk私人辅助(透视)hhpoker德州透视,插件教程(有挂教学)；风靡全球的特色经典游...
推荐一款!wepoker究竟有... 推荐一款!wepoker究竟有透视(脚本)哈糖大菠萝开挂,介绍教程(有挂技术)；囊括全国各种wepo...
每日必备!wepoker有人用... 每日必备!wepoker有人用过(脚本)wpk有那种辅助,线上教程(有挂规律)；wepoker有人用...
玩家必备教程!wejoker私... 玩家必备教程!wejoker私人辅助软件(脚本)哈糖大菠萝可以开挂,可靠技巧(有挂神器)申哈糖大菠萝...