Post History
Japt, 15 bytes É©Òß[U*3ÄUz]gUv Try it É©Òß[U*3ÄUz]gUv :Implicit input of integer U É :Subtract 1 © :Logical AND with Ò :Negate the ...
Answer
#2: Post edited
- # [Japt](https://github.com/ETHproductions/japt), 15 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
- É©Òß[U*3ÄUz]gUv
[Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=yanS31tVKjPEVXpdZ1V2&input=MTA)
- # [Japt](https://github.com/ETHproductions/japt), 15 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
- É©Òß[U*3ÄUz]gUv
- [Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=yanS31tVKjPEVXpdZ1V2&input=MTA)
- É©Òß[U*3ÄUz]gUv :Implicit input of integer U
- É :Subtract 1
- © :Logical AND with
- Ò :Negate the bitwise NOT of (i.e., increment)
- ß :Recursive call with input
- [ : Array containing
- U*3Ä : U*3+1
- Uz : U floor divided by 2
- ] : End array
- g : Get element at 0-based index
- Uv : Is U divisible by 2?