Author Topic: [ENDED] Code Golf - The Reboot #5  (Read 16291 times)

0 Members and 1 Guest are viewing this topic.

Offline lirtosiast

  • LV3 Member (Next: 100)
  • ***
  • Posts: 44
  • Rating: +1/-0
    • View Profile
Re: [ENDED] Code Golf - The Reboot #5
« Reply #15 on: July 05, 2015, 02:58:59 pm »
PT_: I'm impressed! My own solution using ΔList(cumSum( was 44 bytes because I forgot to take the ΔList(cumSum( out of the augment(. Combining my solution and yours, we have this in 42 bytes, which seems to be optimal:

Input N
int(10fPart(.1N10^(iPart(seq(A,A,~log(N),0
While N≠max(Ans
∆List(cumSum(augment(Ans,{sum(Ans
End
N=max(Ans