[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
严格说,前后都要算,
补个 ps
  1. $A = 20, 14, 4, 5, 4, 8, 17, 14, 9, 17, 20, 8, 19, 17, 15, 13, 20, 16, 7, 2, 11, 14, 18, 11, 2, 15, 1, 5, 4, 5, 1, 6, 6, 9, 13, 18, 19, 9, 17, 12, 19, 17, 2, 13, 9, 19, 2, 11;
  2. Function Get-SpaceValue {
  3. param(
  4. [Parameter(Mandatory = $true)][double[]]$arr,
  5. [ValidateSet(0, -1)][sbyte]$y = -1 #[0]不计算两端 [-1]计算两端
  6. )
  7. $r = for ($i = $y; $i -lt $arr.Count - 2 - $y; $i++) {
  8. if ([Linq.Enumerable]::Max([double[]]$arr[$i..($i + 2)]) -eq $arr[$i + 1]) {
  9. @{p = $i + 1; v = $arr[$i + 1] }
  10. }
  11. }
  12. return ConvertTo-Json -Input @{位置 = $r.p; 峰值 = $r.v } -Comp
  13. }
  14. Get-SpaceValue -arr $A
复制代码
结果
  1. {"峰值":[20,5,17,20,19,20,18,15,5,5,6,19,17,19,13,19,11],"位置":[0,3,6,10,12,16,22,25,27,29,31,36,38,40,43,45,47]}
复制代码
1

评分人数

    • ivor: 不符合题目要求,请参考例子2.不只是简单的 ...技术 + 1
QQ: 己阵亡
脚本优先 [PowerShell win10]

TOP

回复 6# ivor


    确实忽略了,看来还是挨个比简单。
QQ: 己阵亡
脚本优先 [PowerShell win10]

TOP

返回列表