此题用PQ来解决。有点偏差。就差临门一脚了。

cnmlgb9998

岁逝华殇 发表于 2024-10-2 20:56
我晕服了  等我详细写出总的

辛苦老师了！感谢

岁逝华殇

cnmlgb9998

岁逝华殇 发表于 2024-10-2 20:56
我晕服了  等我详细写出总的

老师，这个代码，我修改了一下。这个地方，应该是这样的。因为 1至7 对 7 取模，我要的是 1至5。周天 即 7 对7 取模，结果 是 0。

岁逝华殇

[天数=b[s]+1,产量=g(b[s])+b[t]]   这个是的

渡渡orz

2种解法结果是一样的

cnmlgb9998

渡渡orz 发表于 2024-10-2 21:18
2种解法结果是一样的

渡渡老师，真乃神人也。。。。。。。。。。。。厉害！！！！！！

cnmlgb9998

岁逝华殇 发表于 2024-10-2 21:12
[天数=b+1,产量=g(b)+b[t]]   这个是的

老师，我在你的基础上，又修改了一下代码，这个结果，才是正确的。请看。如图！

岁逝华殇

cnmlgb9998 发表于 2024-10-2 21:32
老师，我在你的基础上，又修改了一下代码，这个结果，才是正确的。请看。如图！

let
      源 = Excel.CurrentWorkbook(){[Name = "表1"]}[Content],
      f= (x as record) =>
           let
           r=Record.FieldValues(x),
           g=(y)=>if Number.Mod(y,7)<5 then r{0} else r{1},
           b=List.Last(List.Generate(
                  () => [s = 0, t = 0],
                  each [t] <r{2},
                  each [s=+1,t=[t]+g()]
            ))
            in x&[天数=b+1,产量=g(b)+b[t]] ,
      Res =Table.FromRecords(Table.TransformRows(源,f))
in
    Res

岁逝华殇

cnmlgb9998 发表于 2024-10-2 21:32
老师，我在你的基础上，又修改了一下代码，这个结果，才是正确的。请看。如图！

有点多余 多余

cnmlgb9998

通过此题，我进一步学习了 号称PQ 最难的函数 Genarate。

我发现，此函数在循环方面，比 acc灵活。因为它能设置退出机制。很强大！！！！