Post History

66%

+2 −0

Japt, 13 12 bytes o fj ï æ@¶Xx Try it o fj ï æ@¶Xx :Implicit input of integer U o :Range [0,U) f :Filter by j : Is prime? ï ...

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

Answer

#3: Post edited by

Shaggy‭ · 2026-04-14T08:16:55Z (5 months ago)

Copy Link

Raw

Markdown

# [Japt](https://github.com/ETHproductions/japt), <s>13</s> 12 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
o fj ï æ@¶Xx
[Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=byBmaiDvIOZAtlh4&input=MjQ)
~~o ï æ@¶Xx*Xej :Implicit input of integer U~~
~~o :Range [0,U)~~
~~ï :Cartesian product~~
~~æ :First pair X that returns true~~
~~@ :When passed through the following function~~
~~¶ : Test U for equality with~~
~~Xx : X Reduced by addition~~
* : Multiplied by
~~Xe : Is every element in X~~
~~j : Prime?~~

# [Japt](https://github.com/ETHproductions/japt), <s>13</s> 12 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
o fj ï æ@¶Xx
[Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=byBmaiDvIOZAtlh4&input=MjQ)
o fj ï æ@¶Xx :Implicit input of integer U
o :Range [0,U)
f :Filter by
j : Is prime?
ï :Cartesian product with itself
æ :First pair X that returns true
@ :When passed through the following function
¶ : Test U for equality with
Xx : X Reduced by addition

#2: Post edited by

Shaggy‭ · 2026-04-13T13:13:41Z (5 months ago)

Copy Link

Raw

Markdown

~~# [Japt](https://github.com/ETHproductions/japt), 13 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)~~
~~o ï æ@¶Xx*Xej~~
~~[Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=byDvIOZAtlh4Klhlag&input=MjQ)~~
o ï æ@¶Xx*Xej :Implicit input of integer U
o :Range [0,U)
ï :Cartesian product
æ :First pair X that returns true
@ :When passed through the following function
¶ : Test U for equality with
Xx : X Reduced by addition
* : Multiplied by
Xe : Is every element in X
j : Prime?

# [Japt](https://github.com/ETHproductions/japt), <s>13</s> 12 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)
o fj ï æ@¶Xx
[Try it](https://petershaggynoble.github.io/Japt-Interpreter/?v=1.4.6&code=byBmaiDvIOZAtlh4&input=MjQ)
o ï æ@¶Xx*Xej :Implicit input of integer U
o :Range [0,U)
ï :Cartesian product
æ :First pair X that returns true
@ :When passed through the following function
¶ : Test U for equality with
Xx : X Reduced by addition
* : Multiplied by
Xe : Is every element in X
j : Prime?

#1: Initial revision by

Shaggy‭ · 2021-06-17T09:06:49Z (over 5 years ago)

Copy Link

Raw

Markdown

# [Japt](https://github.com/ETHproductions/japt), 13 [bytes](https://en.wikipedia.org/wiki/ISO/IEC_8859-1)

    o ï æ@¶Xx*Xej

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

    o ï æ@¶Xx*Xej     :Implicit input of integer U
    o                 :Range [0,U)
      ï               :Cartesian product
        æ             :First pair X that returns true
         @            :When passed through the following function
          ¶           :  Test U for equality with
           Xx         :  X Reduced by addition
             *        :  Multiplied by
              Xe      :  Is every element in X
                j     :    Prime?

Communities

Post History