Check if a number is prime
Originally Written by Abigail in 1998 it listed in the JAPH file.
perl -E 'say "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/' 23
Press ← or → to navigate between chapters
Press S or / to search in the book
Press ? to show this help
Press Esc to hide this help
Originally Written by Abigail in 1998 it listed in the JAPH file.
perl -E 'say "Prime" if (1 x shift) !~ /^1?$|^(11+?)\1+$/' 23