Skip to main content
Code Golf

Return to Answer

added 4 characters in body
Source Link
Neil
Neil
  • 177.3k
  • 12
  • 74
  • 281

Charcoal, 4242 41 bytes

≔Ｅ⮌↨Ｎ²…1ιθＦ24HBSI≔Ｅ⪪θ²⪫⮌ＥΦκ∨μ¬ν⎇∧ν⁼μ1ωμιθθ≔⁻Ｉ⮌↨Ｎ²0θＦ24HBSI≔Ｅ⪪θ²⪫⮌ＥΦκ∨μ¬ν⎇∧ν⁼μ1ωμιθθ

Try it online!Try it online! Link is to verbose version of code. Supports numbers from 1 to 18446744073709551615. Explanation:

≔Ｅ⮌↨Ｎ²…1ιθ≔⁻Ｉ⮌↨Ｎ²0θ

Convert the input to a list of 1s and empty strings according to the reverse of its binary representation.

Ｆ24HBSI

Loop over the additional possible "digits".

≔Ｅ⪪θ²⪫⮌ＥΦκ∨μ¬ν⎇∧ν⁼μ1ωμιθ

Group the existing digit blocks into pairs, then for each pair, create a new digit block by removing any second part if it is zero, or making it the empty string if it is one, switching the parts, and joining on the next digit.

θ

Output the final result.

Charcoal, 42 bytes

≔Ｅ⮌↨Ｎ²…1ιθＦ24HBSI≔Ｅ⪪θ²⪫⮌ＥΦκ∨μ¬ν⎇∧ν⁼μ1ωμιθθ

Try it online! Link is to verbose version of code. Supports numbers from 1 to 18446744073709551615. Explanation:

≔Ｅ⮌↨Ｎ²…1ιθ

Convert the input to a list of 1s and empty strings according to the reverse of its binary representation.

Ｆ24HBSI

Loop over the additional possible "digits".

≔Ｅ⪪θ²⪫⮌ＥΦκ∨μ¬ν⎇∧ν⁼μ1ωμιθ

Group the existing digit blocks into pairs, then for each pair, create a new digit block by removing any second part if it is zero, or making it the empty string if it is one, switching the parts, and joining on the next digit.

θ

Output the final result.

Charcoal, 42 41 bytes

≔⁻Ｉ⮌↨Ｎ²0θＦ24HBSI≔Ｅ⪪θ²⪫⮌ＥΦκ∨μ¬ν⎇∧ν⁼μ1ωμιθθ

Try it online! Link is to verbose version of code. Supports numbers from 1 to 18446744073709551615. Explanation:

≔⁻Ｉ⮌↨Ｎ²0θ

Convert the input to a list of 1s and empty strings according to the reverse of its binary representation.

Ｆ24HBSI

Loop over the additional possible "digits".

≔Ｅ⪪θ²⪫⮌ＥΦκ∨μ¬ν⎇∧ν⁼μ1ωμιθ

Group the existing digit blocks into pairs, then for each pair, create a new digit block by removing any second part if it is zero, or making it the empty string if it is one, switching the parts, and joining on the next digit.

θ

Output the final result.

Source Link
Neil
Neil
  • 177.3k
  • 12
  • 74
  • 281

Charcoal, 42 bytes

≔Ｅ⮌↨Ｎ²…1ιθＦ24HBSI≔Ｅ⪪θ²⪫⮌ＥΦκ∨μ¬ν⎇∧ν⁼μ1ωμιθθ

Try it online! Link is to verbose version of code. Supports numbers from 1 to 18446744073709551615. Explanation:

≔Ｅ⮌↨Ｎ²…1ιθ

Convert the input to a list of 1s and empty strings according to the reverse of its binary representation.

Ｆ24HBSI

Loop over the additional possible "digits".

≔Ｅ⪪θ²⪫⮌ＥΦκ∨μ¬ν⎇∧ν⁼μ1ωμιθ

Group the existing digit blocks into pairs, then for each pair, create a new digit block by removing any second part if it is zero, or making it the empty string if it is one, switching the parts, and joining on the next digit.

θ

Output the final result.