| Bytes | Lang | Time | Link |
|---|---|---|---|
| 066 | brainfuck | 250608T105420Z | Level Ri |
| 053 | 55 | 250607T161650Z | m90 |
brainfuck, 66 bytes
+++++++++[>[+>]+[<]>-]>+++++[>+++>+++>+>+<<<[+++>]<[<]>-]>+>>>-<<<
Complies with the new rule which requires leaving the rest of the tape clean.
Commented code
+++++++++ Put 9 in Cell 0
[>[+>]+[<]>-]> Make a descending sequence 9 8 7 6 5 4 3 2 1
+++++ Boost Cell 1 to 14 then use to loop 14 times; On each iteration
[>+++>+++>+>+<<<[+++>]<[<]>-] add 3 to cells 2 to 9; Before that add an extra 3 or 1 to certain cells
>+>>>-<<< Data 92 91 62 61 46 45 44 43 (cells adjusted by 84 56 or 42); Tweak 92 & 61 to 93 & 60
55 53 bytes
-[>[+>]+[<]>-----]>+[>++>++>>[+<]>-----]>++++>+++>+<<
The first loop creates a descending sequence starting from 51 (calculating 51 as 255/5). Then the 51 is incremented to 52, and used to iterate a loop 52/4=13 times to add 13 and 13×3=39 variously to the following numbers:
50 49 48 47 46 45 44 43 ...
+39 +39 +13 +13
=89 =88 =61 =60
Finally, adjust the numbers a bit more and move to the appropriate position.
-2 from Level River St by shortening the second loop with an internal loop.