Return to Answer

added 7 characters in body

Source Link

edited Jul 24, 2017 at 23:14

Haskell, 5454 53 bytes

k#(a:b:c)=k+=k+last(last$bb:[k*2|a==b])#(b:c)
k#_=k
(#)=<<head

A simple recursion that either doubles the accumulator k or resets it to 1/-1 and adds the values of each step.

k#(a:b:c)=k+(last$b:[k*2|a==b])#(b:c)
k#_=k
(#)=<<head

A simple recursion that either doubles the accumulator k or resets it to 1/-1 and adds the values of each step.

k#(a:b:c)=k+last(b:[k*2|a==b])#(b:c)
k#_=k
(#)=<<head

A simple recursion that either doubles the accumulator k or resets it to 1/-1 and adds the values of each step.

Source Link

created Jul 24, 2017 at 16:25

k#(a:b:c)=k+(last$b:[k*2|a==b])#(b:c)
k#_=k
(#)=<<head

A simple recursion that either doubles the accumulator k or resets it to 1/-1 and adds the values of each step.