Check If my String is Prime [duplicate]

Question

We define a prime character as a character that has a prime ASCII value. We define a prime string as a String that only contains prime characters.

Given a String that only contains printable ASCII, determine whether that String is prime.

Input / Output

You can take input either as a String or as a list of individual characters. You have to output two different and consistent values depending on whether the String is prime, following the standard rules for a decision-problem. You are guaranteed that the input will be non-empty.

Test Cases

Truthy cases (Prime Strings):

"aeg"
"aIS5"
"aaaaaaaaaaaaaa"
"/S/S"
"=;+"

Falsy cases (not Prime Strings):

"maTHS"
"Physics"
"\\\\"
"PPCG"
"Code Golf"
"Prime"

This is code-golf, so the shortest code in bytes wins! Standard rules for this tag apply.

@Mr.Xcoder I downvoted (and I personally would say dupe) of generic prime checking with some boilerplate (.unicodePoints.every(isPrime)) the thing is none of these boilerplate functions would even likely have the capability to be golfed as they are isPrime surrounded by language built ins. I don't want to smash as I would hammer it and would also like to get consensus — Downgoat, Commented Jul 17, 2017 at 17:58
The definition of a prime string as simply not containing any non-prime characters seems less interesting than it could be, and a poor analogy with digits of numbers. For example, in regular decimal numbers, 33 is non-prime even though all its digits are prime. — Peter Cordes, Commented Jul 17, 2017 at 18:02

Magic Octopus Urn · Accepted Answer · 2017-07-17 15:10:12Z

5

05AB1E, 3 bytes

ÇpW

Try it online!

Ç   # To ASCII array.
 p  # Is prime?
  W # Min value from.

ÇpP also works.

edited Jul 17, 2017 at 15:10

answered Jul 17, 2017 at 15:08

Magic Octopus Urn

20.8k5 gold badges62 silver badges136 bronze badges

\$\begingroup\$ You beat me by a few seconds. I had ÇpP. \$\endgroup\$
– Riley
Commented Jul 17, 2017 at 15:10
\$\begingroup\$ @Riley I'm surprised I was beaten by a Jelly answer, I answered hella quick, all I had to do was grab the ASCII command heh. \$\endgroup\$
– Magic Octopus Urn
Commented Jul 17, 2017 at 15:11

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

5

Jelly, 4 bytes

OÆPẠ

Try it online!

Explanation

Remember that a string is an array of characters, so operations like O will apply to each individual character.

OÆPẠ
O        Ord; cast each character to a number
 ÆP      Is it ÆPrime? gives 1 for truthy and 0 for falsey
   Ạ     Ạll; returns 1 if the array contains no falsey values

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Jul 17, 2017 at 15:07

user41805

13.2k6 gold badges42 silver badges88 bronze badges

Add a comment |

ovs · Accepted Answer · 2017-07-17 15:15:43Z

4

Python 3, 56 bytes

lambda s:all(x%i for x in map(ord,s)for i in range(2,x))

Try it online!

answered Jul 17, 2017 at 15:15

ovs

60.6k3 gold badges47 silver badges161 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

3

MATL, 3 bytes

ZpA

Outputs 1 for prime string, 0 otherwise.

Try it online!

Explanation

     % Implicit input
Zp   % Isprime. Applies element-wise to the code point of each entry
A    % All. Gives 1 iff all results are non-zero.
     % Implicit display

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Jul 17, 2017 at 15:22

Luis Mendo

105k9 gold badges135 silver badges372 bronze badges

Add a comment |

Erik the Outgolfer · Accepted Answer · 2017-07-17 15:23:38Z

2

Brachylog, 3 bytes

ạṗᵐ

Try it online!

answered Jul 17, 2017 at 15:23

Erik the Outgolfer

40.6k5 gold badges45 silver badges122 bronze badges

Add a comment |

nimi · Accepted Answer · 2017-07-17 16:27:50Z

2

Haskell, 32 bytes

all(`elem`"%)+/5;=CGIOSYaegkmq")

Try it online!

answered Jul 17, 2017 at 16:27

nimi

35.9k4 gold badges34 silver badges99 bronze badges

Add a comment |

Business Cat · Accepted Answer · 2017-07-17 15:17:33Z

1

CJam, 8 bytes

q:i:mp:&

Try it online!

Explanation

q         e# Read input
 :i       e# Convert to code points
   :mp    e# Check if each is prime
      :&  e# Reduce by AND

answered Jul 17, 2017 at 15:17

Business Cat

9,1771 gold badge17 silver badges37 bronze badges

Add a comment |

Dom Hastings · Accepted Answer · 2017-07-17 15:44:04Z

1

Perl, 46 bytes

45 bytes code + 1 for -p.

$_=y///c==grep!/^(11+?)\1+$/,map"1"x ord,/./g

Try it online! (-l added to run all tests at once)

answered Jul 17, 2017 at 15:44

Dom Hastings

24.4k4 gold badges56 silver badges93 bronze badges

Add a comment |

Giuseppe · Accepted Answer · 2017-07-17 16:39:09Z

1

R, 42 bytes

all(pracma::isprime(utf8ToInt(scan(,''))))

Reads from stdin, requires the pracma (practical math) package to be installed. Checks if all the UTF-8 encoding of the characters are prime. Unfortunately, this won't work on TIO...

Try it online!

answered Jul 17, 2017 at 16:39

Giuseppe

28.8k3 gold badges31 silver badges105 bronze badges

Add a comment |

Keyu Gan · Accepted Answer · 2017-07-17 16:47:33Z

1

Mathematica, 30 bytes

And@@PrimeQ@ToCharacterCode@#&

Quite self-explanatory.

answered Jul 17, 2017 at 16:47

Keyu Gan

2,16311 silver badges25 bronze badges

Add a comment |

steenbergh · Accepted Answer · 2017-07-17 16:54:27Z

QBIC, 28 bytes

[_l;||q=q*µasc(_sA,a,1)]?q=0

This prints -1 for non-prime strings, and 0 for prime ones. That is opposite to QBasic's usual approach to true/false, but this is the shortest way t comply with the 'consistent values' criterium. Output would otherwise be 0 or 1/-1.

Explanation

[    |          FOR a = 1 to
 _l |             the length of
   ;              A$ (read from the cmd line)
q=q*            Multiply q (which starts as 1) by
µ                -1 if the following is prime, 0 otherwise:
 asc(       )   take the ASCII value of
     _sA,a,1      a substring of A$, starting at pos a, for 1 char
]               NEXT
?q=0            If we've tested all chas in the string, print -1 if q=0 
                and we've found a non-prime, or a 0 for prime strings

caylee · Accepted Answer · 2017-07-18 03:24:43Z

1

C, 113 bytes

p(int c){for(int i=1;++i<c;)if(!(c%i))return 1;return 0;}c(char*s){char*a="p";while(*s++)if(p(*s))++a;printf(a);}

edited Jul 18, 2017 at 3:24

answered Jul 17, 2017 at 15:22

caylee

4534 silver badges9 bronze badges

\$\begingroup\$ You can do for(int i=1;++i<c;) for your first for-loop to save 1 byte. \$\endgroup\$
– user41805
Commented Jul 17, 2017 at 15:50
1

\$\begingroup\$ You can always omit int return type and argument type (if there's no other types) in C \$\endgroup\$
– Keyu Gan
Commented Jul 17, 2017 at 16:48
\$\begingroup\$ I reduced the size from 137 to 113 bytes \$\endgroup\$
– caylee
Commented Jul 18, 2017 at 3:25

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

1

APL (Dyalog), 21 bytes

⎕CY'dfns'
∧/1pco⎕UCS⎕

Try it online!

Explanation

⎕CY'dfns' This allows us to use pco
⎕UCS⎕     Convert the characters in the input to its respective code points
1pco      pco with 1 as the left argument gives 1 iff the right argument is prime
          This is applied across the array of code points
∧/        Reduce by AND; return 1 if all elements are truthy, otherwise give false

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Jul 17, 2017 at 15:40

user41805

13.2k6 gold badges42 silver badges88 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

0

Mathematica, 36 bytes

FreeQ[PrimeQ@ToCharacterCode@#,1<0]&

Try it online!

-2 bytes from @JungHwanMin

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Jul 17, 2017 at 15:12

ZaMoC

24.9k2 gold badges30 silver badges81 bronze badges

\$\begingroup\$ -2 bytes: FreeQ[PrimeQ@ToCharacterCode@#,1<0]& \$\endgroup\$
– JungHwan Min
Commented Jul 17, 2017 at 16:36

Add a comment |

Pavel · Accepted Answer · 2017-07-17 16:46:05Z

0

C# (.NET Core), 60 bytes

s=>s.All(i=>Enumerable.Range(2,(int)i-2).All(j=>((int)i)%j))

answered Jul 17, 2017 at 16:46

Pavel

9,3971 gold badge52 silver badges95 bronze badges

\$\begingroup\$ You need to include using System.Linq; into your byte count here. \$\endgroup\$
– TheLethalCoder
Commented Jul 19, 2017 at 12:44

Add a comment |

Stack Exchange Network

Check If my String is Prime [duplicate]

Input / Output

Test Cases

15 Answers 15

05AB1E, 3 bytes

Jelly, 4 bytes

Explanation

Python 3, 56 bytes

MATL, 3 bytes

Explanation

Brachylog, 3 bytes

Haskell, 32 bytes

CJam, 8 bytes

Explanation

Perl, 46 bytes

R, 42 bytes

Mathematica, 30 bytes

QBIC, 28 bytes

Explanation

C, 113 bytes

APL (Dyalog), 21 bytes

Explanation

Mathematica, 36 bytes

C# (.NET Core), 60 bytes

Not the answer you're looking for? Browse other questions tagged
code-golf
string
or ask your own question.

Linked

Hot Network Questions

Check If my String is Prime [duplicate]

Input / Output

Test Cases

15 Answers 15

05AB1E, 3 bytes

Jelly, 4 bytes

Explanation

Python 3, 56 bytes

MATL, 3 bytes

Explanation

Brachylog, 3 bytes

Haskell, 32 bytes

CJam, 8 bytes

Explanation

Perl, 46 bytes

R, 42 bytes

Mathematica, 30 bytes

QBIC, 28 bytes

Explanation

C, 113 bytes

APL (Dyalog), 21 bytes

Explanation

Mathematica, 36 bytes

C# (.NET Core), 60 bytes

Not the answer you're looking for? Browse other questions tagged code-golfstring or ask your own question.

Linked

Related

Hot Network Questions

Not the answer you're looking for? Browse other questions tagged
code-golf
string
or ask your own question.