0 Members and 2 Guests are viewing this topic.
Oh, jeez, my calc just crashed, sorry. I think it was around 600 bytes. I could be wrong. I'll get it back again after I finish a mini project for a friend. (My calc screen is flipped upside down for some reason! It was a mistake, but still!)
0For(A,1,length(Str12Ans+(sub(Str1,A,1)="1End
.5sum(seq(expr(sub(Ans,X,1))2^X,X,1,length(Ans
0For(A,1,length(Str12Ans+expr(sub(Str1,A,1End
I was able to do 25 bytes, but my input string is backwards, and it takes Ans as the string input instead of Str1 It also has the benefit of being a single lineCode: [Select].5sum(seq(expr(sub(Ans,X,1))2^X,X,1,length(AnsYour program can be simplified with the use of expr() as well, instead of the ="1