Post History
Japt, 13 bytes o ï æ@¶Xx*Xej Try it o ï æ@¶Xx*Xej :Implicit input of integer U o :Range [0,U) ï :Cartesian product æ :First pair X that r...
Answer
#1: Initial revision
by
Shaggy
·
2021-06-17T09:06:49Z (over 3 years ago)
# [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?