Post History
R, 73 bytes `-`=\(n,s="",`<`=paste0)`if`(n,n%/%16-c(0:9,LETTERS[1:6])[1+n%%16]<s,0<s) Attempt This Online! Similar to the JS and Python answers, but uses recursion. Adds a leading 0 ...
#3: Post edited
by
Glory2Ukraine
·
2026-01-29T09:20:01Z (8 months ago)
- # [R](https://www.r-project.org), 73 bytes
- ```r
- `-`=\(n,s="",`<`=paste0)`if`(n,n%/%16-c(0:9,LETTERS[1:6])[1+n%%16]<s,0<s)
- ```
[Attempt This Online!](https://ato.pxeger.com/run?1=NZDBSsNAEIbv8xRhIbBbd3EmsXFTsoVGUxD0or1lAxuLFS9LcdOn8VIPvobv4du4bZO5zPfP_Pww8_X9eTz-HIad0n8PTjljuZfBMCZd5cy-D8MbCvexc3Hs0-uUCrXluCjlY7PZNM8vLS2KTrR05dO466ogsQpiDPx96vc8hsqw7T0fzHs4vHLGrQ1iZpaxtajKlVp3M2s9kyxhEhgmpzLLBIEmJCAccQU0H3ENVEyGaMbbCxd1tOQXLkvIpvld9CPimfNGR5FrOolM63u40To7q7qp58CEgPGK6T3_)- Similar to the JS and Python answers, but uses recursion.
- Adds a leading 0 to the output. This way, the case for 0 is solved, with no empty output.
- # [R](https://www.r-project.org), 73 bytes
- ```r
- `-`=\(n,s="",`<`=paste0)`if`(n,n%/%16-c(0:9,LETTERS[1:6])[1+n%%16]<s,0<s)
- ```
- [Attempt This Online!](https://ato.pxeger.com/run?1=PZDRSsMwFIbxNu8glMAgmYkmnavpaAabdjBQBN1dO0w3NymMUJYUH8abeeFD6dN4uq4LgXz_nz-Hk_P1vT8cfmq_5ep3brjRObHMaYyZSYyuCuc3gppya8C2vZuejPiaiFHMHtPFIn15zeQoWtJMXtke3C0Tx0TiaFvw7-KytFXt35zfBwkPsAiapceBQLJDiaQ44QTJ4QlnSEZdAMLiruVoCpFBy3GMws6_h7wQ4siDVIEYKNmIUKkHdKtUeFTTdDpEGK1XpX0nZt701tjPtQcyunDXu9J5stkR6NhVu9KT8wcYzi2mlDI0se5zs9dPRUVgYMytC0u8_nD1imCS54729RiOTPB4wmfLfg4PGQ4wC87FKEWw2yl14_8H)
- Similar to the JS and Python answers, but uses recursion.
- Adds a leading 0 to the output. This way, the case for 0 is solved, with no empty output.
#2: Post edited
by
Glory2Ukraine
·
2026-01-29T08:59:10Z (8 months ago)
# [R](https://www.r-project.org), 68 bytes- ```r
`-`=\(n,s="")`if`(n,paste0(n%/%16-c(0:9,LETTERS[1:6])[1+n%%16],s),s)- ```
[Attempt This Online!](https://ato.pxeger.com/run?1=NZDBasMwDIbveopgCNidzaRkzZyCC82anrbL1lscSFbWsYspc_o0u3SHvcbeY28ztU2EQN8v_Qikr-_P0-nnOOyN_Vt3pnNeBh2dEKr72HfMhz4ObyhDeptSYXYSF6V-rLfb-vmloUXRqoZuQsqzVkfFOe76feoPkvfpuOuDHNx7PL5KIb2PauaWXBo05cps2pn3QWiRCA0Ck3O4ZYJAExIQjrgCmo-4ASomA5vx_spFxZb8ymUJ2dR_YD8iXjivLYvc0llk1q7hztrsoqq6moNQCsYrps_8Aw)- Similar to the JS and Python answers, but uses recursion.
(Fails on \$0\$)Or for 73 bytes with a leading 0:```r`-`=\(n,s="",`<`=paste0)`if`(n,n%/%16-c(0:9,LETTERS[1:6])[1+n%%16]<s,0<s)```
- # [R](https://www.r-project.org), 73 bytes
- ```r
- `-`=\(n,s="",`<`=paste0)`if`(n,n%/%16-c(0:9,LETTERS[1:6])[1+n%%16]<s,0<s)
- ```
- [Attempt This Online!](https://ato.pxeger.com/run?1=NZDBSsNAEIbv8xRhIbBbd3EmsXFTsoVGUxD0or1lAxuLFS9LcdOn8VIPvobv4du4bZO5zPfP_Pww8_X9eTz-HIad0n8PTjljuZfBMCZd5cy-D8MbCvexc3Hs0-uUCrXluCjlY7PZNM8vLS2KTrR05dO466ogsQpiDPx96vc8hsqw7T0fzHs4vHLGrQ1iZpaxtajKlVp3M2s9kyxhEhgmpzLLBIEmJCAccQU0H3ENVEyGaMbbCxd1tOQXLkvIpvld9CPimfNGR5FrOolM63u40To7q7qp58CEgPGK6T3_)
- Similar to the JS and Python answers, but uses recursion.
- Adds a leading 0 to the output. This way, the case for 0 is solved, with no empty output.
#1: Initial revision
by
Glory2Ukraine
·
2026-01-27T10:48:57Z (8 months ago)
# [R](https://www.r-project.org), 68 bytes ```r `-`=\(n,s="")`if`(n,paste0(n%/%16-c(0:9,LETTERS[1:6])[1+n%%16],s),s) ``` [Attempt This Online!](https://ato.pxeger.com/run?1=NZDBasMwDIbveopgCNidzaRkzZyCC82anrbL1lscSFbWsYspc_o0u3SHvcbeY28ztU2EQN8v_Qikr-_P0-nnOOyN_Vt3pnNeBh2dEKr72HfMhz4ObyhDeptSYXYSF6V-rLfb-vmloUXRqoZuQsqzVkfFOe76feoPkvfpuOuDHNx7PL5KIb2PauaWXBo05cps2pn3QWiRCA0Ck3O4ZYJAExIQjrgCmo-4ASomA5vx_spFxZb8ymUJ2dR_YD8iXjivLYvc0llk1q7hztrsoqq6moNQCsYrps_8Aw) Similar to the JS and Python answers, but uses recursion. (Fails on \$0\$) Or for 73 bytes with a leading 0: ```r `-`=\(n,s="",`<`=paste0)`if`(n,n%/%16-c(0:9,LETTERS[1:6])[1+n%%16]<s,0<s) ```