Communities

Writing
Writing
Codidact Meta
Codidact Meta
The Great Outdoors
The Great Outdoors
Photography & Video
Photography & Video
Scientific Speculation
Scientific Speculation
Cooking
Cooking
Electrical Engineering
Electrical Engineering
Judaism
Judaism
Languages & Linguistics
Languages & Linguistics
Software Development
Software Development
Mathematics
Mathematics
Christianity
Christianity
Code Golf
Code Golf
Music
Music
Physics
Physics
Linux Systems
Linux Systems
Power Users
Power Users
Tabletop RPGs
Tabletop RPGs
Community Proposals
Community Proposals
tag:snake search within a tag
answers:0 unanswered questions
user:xxxx search by author id
score:0.5 posts with 0.5+ score
"snake oil" exact phrase
votes:4 posts with 4+ votes
created:<1w created < 1 week ago
post_type:xxxx type of post
Search help
Notifications
Mark all as read See all your notifications »
Challenges

Post History

60%
+1 −0
Challenges Give the fool's fibonacci sequence

Japt, 23 bytes >0©3ò4È*ßUµ3ÃxÒUÆßX}3 x Try it 23 22 20 bytes Outputs the complete sequence, from my original misinterpretation, backed up by the existing solutions, that every 3rd value in...

posted 5mo ago by Shaggy‭  ·  edited 5mo ago by Shaggy‭

Answer
#6: Post edited by user avatar Shaggy‭ · 2026-04-22T10:04:12Z (5 months ago)
  • # [Japt](https://github.com/ETHproductions/japt), <s>23</s> <s>22</s> 20 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
  • ©2õÈ*ßTwXnUÃxÒUÆßXÃx
  • [Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=qTL1yCrfVHdYblXDeNJVxt9Yw3g&input=WzEgNCA3IDEwXS1tUw)
  • ©2õÈ*ßTwXnUÃxÒUÆßXÃx :Implicit input of integer U
  • © :Logical AND with
  • 2õ :Range [1,2]
  • È :Map each X
  • * : Multiply by
  • ß : Recursive call with argument
  • T : 0
  • w : Maximum with
  • XnU : X subtracted from U
  • Ã :End map
  • x :Reduce by addition after
  • Ò : Subtracting, from each, the bitwise NOT of
  • UÆ : Map each X in the range [0,U)
  • ßX : Recursive call with argument X
  • Ã : End map
  • x : Reduce by addition
  • # [Japt](https://github.com/ETHproductions/japt), 23 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
  • >0©3ò4È*ßUµ3ÃxÒUÆßX}3 x
  • [Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=PjCpM/I0yCrfVbUzw3jSVcbfWH0zIHg&input=WzEgNCA3IDEwIDEzIDE2IDE5IDIyIDI1IDI4XS1tUw)
  • # <s>23</s> <s>22</s> 20 bytes
  • Outputs the complete sequence, from my original misinterpretation, backed up by the existing solutions, that every 3rd value in our sequence must match the corresponding value in the original sequence.
  • ©2õÈ*ßTwXnUÃxÒUÆßXÃx
  • [Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=qTL1yCrfVHdYblXDeNJVxt9Yw3g&input=WzEgNCA3IDEwXS1tUw)
  • ©2õÈ*ßTwXnUÃxÒUÆßXÃx :Implicit input of integer U
  • © :Logical AND with
  • 2õ :Range [1,2]
  • È :Map each X
  • * : Multiply by
  • ß : Recursive call with argument
  • T : 0
  • w : Maximum with
  • XnU : X subtracted from U
  • Ã :End map
  • x :Reduce by addition after
  • Ò : Subtracting, from each, the bitwise NOT of
  • UÆ : Map each X in the range [0,U)
  • ßX : Recursive call with argument X
  • Ã : End map
  • x : Reduce by addition
#5: Post edited by user avatar Shaggy‭ · 2026-04-21T09:11:17Z (5 months ago)
  • # [Japt](https://github.com/ETHproductions/japt), <s>23</s> <s>22</s> 20 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
  • >0©2õÈ*ßXnUÃxÒUÆßXÃx
  • [Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=PjCpMvXIKt9YblXDeNJVxt9Yw3g&input=MTA)
  • # [Japt](https://github.com/ETHproductions/japt), <s>23</s> <s>22</s> 20 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
  • ©2õÈ*ßTwXnUÃxÒUÆßXÃx
  • [Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=qTL1yCrfVHdYblXDeNJVxt9Yw3g&input=WzEgNCA3IDEwXS1tUw)
  • ©2õÈ*ßTwXnUÃxÒUÆßXÃx :Implicit input of integer U
  • © :Logical AND with
  • 2õ :Range [1,2]
  • È :Map each X
  • * : Multiply by
  • ß : Recursive call with argument
  • T : 0
  • w : Maximum with
  • XnU : X subtracted from U
  • Ã :End map
  • x :Reduce by addition after
  • Ò : Subtracting, from each, the bitwise NOT of
  • UÆ : Map each X in the range [0,U)
  • ßX : Recursive call with argument X
  • Ã : End map
  • x : Reduce by addition
#4: Post edited by user avatar Shaggy‭ · 2026-04-16T20:12:26Z (5 months ago)
  • # [Japt](https://github.com/ETHproductions/japt), <s>23</s> <s>22</s> 21 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
  • >0©2õÈ*ßXnUÃxÄ+UÆßXÃx
  • [Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=PjCpMvXIKt9YblXDeMQrVcbfWMN4&input=MTA)
  • >0©ßUÉ +ßUÉÉ ÑÒÒUÆßXÃxÑ :Implicit input of integer U
  • >0 :Is U greater than 0?
  • © :Logical AND with
  • ß : Recursive call with argument
  • UÉ : U-1
  • + : Add
  • ßUÉÉ : Recursive call with argument U-1-1
  • Ñ : Multiplied by 2
  • ÒÒ : Subtract the bitwise NOT of the negation of the bitwise NOT of
  • UÆ : Map each X in the range [0,U)
  • ßX : Recursive call with argument X
  • Ã : End map
  • x : Reduce by addition after
  • Ñ : Multiplying by 2
  • # [Japt](https://github.com/ETHproductions/japt), <s>23</s> <s>22</s> 20 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
  • >0©2õÈ*ßXnUÃxÒUÆßXÃx
  • [Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=PjCpMvXIKt9YblXDeNJVxt9Yw3g&input=MTA)
#3: Post edited by user avatar Shaggy‭ · 2026-04-16T19:35:24Z (5 months ago)
  • # [Japt](https://github.com/ETHproductions/japt), <s>23</s> 22 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
  • >0©ßUÉÉ ÑÒßUÉ ÒUÆßXÃxÑ
  • [Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=PjCp31XJySDR0t9VySDSVcbfWMN40Q&input=MTA)
  • >0©ßUÉ +ßUÉÉ ÑÒÒUÆßXÃxÑ :Implicit input of integer U
  • >0 :Is U greater than 0?
  • © :Logical AND with
  • ß : Recursive call with argument
  • UÉ : U-1
  • + : Add
  • ßUÉÉ : Recursive call with argument U-1-1
  • Ñ : Multiplied by 2
  • ÒÒ : Subtract the bitwise NOT of the negation of the bitwise NOT of
  • UÆ : Map each X in the range [0,U)
  • ßX : Recursive call with argument X
  • Ã : End map
  • x : Reduce by addition after
  • Ñ : Multiplying by 2
  • # [Japt](https://github.com/ETHproductions/japt), <s>23</s> <s>22</s> 21 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
  • >0©2õÈ*ßXnUÃxÄ+UÆßXÃx
  • [Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=PjCpMvXIKt9YblXDeMQrVcbfWMN4&input=MTA)
  • >0©ßUÉ +ßUÉÉ ÑÒÒUÆßXÃxÑ :Implicit input of integer U
  • >0 :Is U greater than 0?
  • © :Logical AND with
  • ß : Recursive call with argument
  • UÉ : U-1
  • + : Add
  • ßUÉÉ : Recursive call with argument U-1-1
  • Ñ : Multiplied by 2
  • ÒÒ : Subtract the bitwise NOT of the negation of the bitwise NOT of
  • UÆ : Map each X in the range [0,U)
  • ßX : Recursive call with argument X
  • Ã : End map
  • x : Reduce by addition after
  • Ñ : Multiplying by 2
#2: Post edited by user avatar Shaggy‭ · 2026-04-16T15:27:27Z (5 months ago)
  • # [Japt](https://github.com/ETHproductions/japt), 23 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
  • >0©ßUÉ +ßUÉÉ ÑÒÒUÆßXÃxÑ
  • [Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=PjCp31XJICvfVcnJINHS0lXG31jDeNE&input=MTA)
  • >0©ßUÉ +ßUÉÉ ÑÒÒUÆßXÃxÑ :Implicit input of integer U
  • >0 :Is U greater than 0?
  • © :Logical AND with
  • ß : Recursive call with argument
  • UÉ : U-1
  • + : Add
  • ßUÉÉ : Recursive call with argument U-1-1
  • Ñ : Multiplied by 2
  • ÒÒ : Subtract the bitwise NOT of the negation of the bitwise NOT of
  • UÆ : Map each X in the range [0,U)
  • ßX : Recursive call with argument X
  • Ã : End map
  • x : Reduce by addition after
  • Ñ : Multiplying by 2
  • # [Japt](https://github.com/ETHproductions/japt), <s>23</s> 22 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
  • >0©ßUÉÉ ÑÒßUÉ ÒUÆßXÃxÑ
  • [Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=PjCp31XJySDR0t9VySDSVcbfWMN40Q&input=MTA)
  • >0©ßUÉ +ßUÉÉ ÑÒÒUÆßXÃxÑ :Implicit input of integer U
  • >0 :Is U greater than 0?
  • © :Logical AND with
  • ß : Recursive call with argument
  • UÉ : U-1
  • + : Add
  • ßUÉÉ : Recursive call with argument U-1-1
  • Ñ : Multiplied by 2
  • ÒÒ : Subtract the bitwise NOT of the negation of the bitwise NOT of
  • UÆ : Map each X in the range [0,U)
  • ßX : Recursive call with argument X
  • Ã : End map
  • x : Reduce by addition after
  • Ñ : Multiplying by 2
#1: Initial revision by user avatar Shaggy‭ · 2026-04-16T15:11:19Z (5 months ago)
# [Japt](https://github.com/ETHproductions/japt), 23 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)

    >0©ßUÉ +ßUÉÉ ÑÒÒUÆßXÃxÑ

[Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=PjCp31XJICvfVcnJINHS0lXG31jDeNE&input=MTA)

    >0©ßUÉ +ßUÉÉ ÑÒÒUÆßXÃxÑ     :Implicit input of integer U
    >0                          :Is U greater than 0?
      ©                         :Logical AND with
       ß                        :  Recursive call with argument
        UÉ                      :  U-1
           +                    :  Add
            ßUÉÉ                :    Recursive call with argument U-1-1
                 Ñ              :    Multiplied by 2
                  ÒÒ            :  Subtract the bitwise NOT of the negation of the bitwise NOT of
                    UÆ          :    Map each X in the range [0,U)
                      ßX        :      Recursive call with argument X
                        Ã       :    End map
                         x      :    Reduce by addition after
                          Ñ     :      Multiplying by 2