Écrivez un programme qui définit une fonction qui peut vérifier si une variable chaîne appelée "tout ce que vous voulez ou entré par l'utilisateur" est ou non un piem. (piem = une histoire ou un poème dans lequel la longueur des mots représente les chiffres de π ( de Wikipedia ))

Quelques exemples:

myfunction("I am clearly wrong") # False
myfunction("How I want a drink, alcoholic of course, after the heavy lectures involving quantum mechanics") #True (Taken from Wikipedia)
myfunction("Law ' s fine") # True

Vous devez supprimer tout type de ponctuation ou de nouvelle ligne avant le traitement. Golf pur code, les victoires les plus courtes

Date de fin: soirée du 1/10/2014

Réponses diverses

• Combien de chiffres devons-nous traiter? Plus que 10
• Comme question d'intérêt, comment interpréter les 0 dans PI? Mots ignorés ou à 10 lettres? Comme mots de 10 lettres
• "une variable appelée piem" - donc le nom du paramètre doit être piem? Non, ce n'est pas le cas, le texte de la question a été corrigé
• Un bonus amusant pourrait être une solution qui est elle-même un piem Si votre solution est un piem, vous obtenez * 0,5 bonus
• Par souci d'argument, est-ce que _ est toujours une ponctuation? Vous pouvez décider s'il s'agit de ponctuation ou non
• On ne sait pas ce que l'on entend par "tout type de ponctuation", je veux dire,. '"?! ;; ()
• Donc, les chiffres doivent être comptés? Et l'amende de Law serait fausse? Les chiffres doivent être traités comme des lettres, Law's fine = False; Amende de la loi = Vrai

commentaires

• La solution APL doit être comptée en octets
• Si votre solution fonctionne pour plus de 100 chiffres de pi, vous obtenez * 0,8 bonus
• En raison du grand intérêt, la date de fin est un jour de plus dans le futur.

APL (39)

{N≡(≢N←≢¨('\w+'⎕S'\0')⍵)↑⍎¨'_. '~⍨99⍕○1}

Il utilise tous les chiffres fournis par la constante pi de l'interpréteur APL, jusqu'à une limite de 99. Dans mon cas (Dyalog APL 14 32 bits), il s'agissait de 16 chiffres. La version 64 bits a probablement plus de chiffres. Cependant, 16 chiffres suffisent pour que les exemples donnés fonctionnent.

Les chaînes qui ont plus que ce nombre de mots échoueront , même si tous les chiffres qu'il a pu vérifier étaient vrais. (Il en va de même pour les autres articles, au moment de la rédaction de cet article.) Par exemple, s'il n'y avait que 10 chiffres, celui «Comment je veux boire un verre» échouerait. Cela peut être corrigé, mais au prix de 14 caractères:

{(≢¨('\w+'⎕S'\0')⍵){∧/(⌊/≢¨⍺⍵)↑∨⌿⍺∘.=⍵}⍎¨'_. '~⍨99⍕○1}

Cette version accepte toute chaîne dont les N premiers chiffres sont corrects.

JavaScript (169) (140) (137) (135) (63) pour 17 chiffres de pi

Dans ma version Law's fineet Law ' s fineretourner les deux vrai.

Nouvelle version (63) par Ingo Bürk et hsl

f=s=>!s.split(/\W+/).some((x,i)=>x.length-(Math.PI*1e16+'')[i])

Nouvelle version (135) pour 17 chiffres de pi (Merci à Ingo Bürk):

f=(s)=>{
s=s.split(/[!"#$%&'()*+, \-.\/:;<=>?@[\\\]^_`{|}~]+/);
p=Math.PI*1e16+'';
    r=0;
    for(a=s.length;a--;)r+=s[a].length!=p[a];
    return !r
}

Ancienne version (169) pour 32 chiffres de pi:

f=(s)=>{
s=s.split(/[!"#$%&'()*+, \-.\/:;<=>?@[\\\]^_`{|}~]+/);
p="31415926535897932384626433832795".split('');
    r=1;
    for(a=s.length;a--;)if(s[a].length!=p[a]){r=0};
    return r;
}

Rubis, 113 101 79 (98 * 0,8)

require"bigdecimal/math"
x=->p{!(BigMath.PI(999).to_s[2..-1]!~/^#{p.scan(/\w+/).map(&:size)*''}/)}

Explication

• L'entrée est considérée comme l'argument d'un lambda. Il attend a String.
• Pi est calculé jusqu'aux 999décimales et transformé en une chaîne avec le .supprimé.
• Les signes de ponctuation sont supprimés du poème et il est divisé en mots individuels. "Let's"est compté comme deux mots: "Let"et "s".
• Utilisez Array#mappour convertir chaque mot à la taille du mot, les concaténer en a String.
• À l'aide d'une expression régulière, vérifiez si les deux Strings créés commencent par les mêmes caractères.

J'ai appliqué le bonus pour gérer plus de 100 chiffres. _n'est pas traité comme ponctuation dans cette solution.

Mathematica, 123 octets * 0,8 = 98,4

f=#&@@RealDigits[Pi,10,Length[d=StringLength/@StringSplit@StringReplace[#,RegularExpression@"[!-.:-?]
"->""]/. 10->0]]==d&;

Presque la soumission la plus longue jusqu'à présent, mais:

• Cela fonctionne pour n'importe quel nombre de chiffres de Pi.
• Il supprime tous les caractères ASCII requis et le saut de ligne, sans fractionner les mots à ces endroits.
• Il gère correctement les 0 chiffres de Pi (en tant que mots de 10 lettres)

Python - 130 127 116 - 17 chiffres de pi

Comme dans la réponse de @flawr , Law ' s fineet les Law's finedeux renvoient True.

Merci à @Emil d' avoir supprimé 12 caractères du programme.

import re
f=lambda x:all(j==int("31415926535897932"[i])for i,j in enumerate([len(s)for s in re.findall("[\w]+",x)]))

Java, 185

boolean f(String...s){s=s[0].replaceAll("\\W","~").replaceAll("~+","~").split("~");for(int i=0;i<s.length;){if(s[i].length()!=(int)(Math.PI*Math.pow(10,i++)%10))return 0>1;}return 1>0;}

python 3, 17 chiffres de pi, 104

import re;f=lambda s:all(map(int.__eq__, map(int, '31415926535897932'), map(len,re.findall('[\w]+',s))))

Python 3 - 129

Ne tient pas compte de la ponctuation:

import math
f=lambda p:all(1if len(p.split(' ')[i])!=int(str(math.pi).replace('.','')[i])else 1for i in range(len(p.split(' '))))

T-SQL 488 383

Et maintenant pour une grande solution T-SQL :)

CREATE FUNCTION F(@s VARCHAR(MAX))RETURNS CHAR(6) AS BEGIN DECLARE @ CHAR='T',@p VARCHAR(50)='31415926535897932384626433832795028841971693993751',@i INT=0WHILE @='T'AND @s<>''BEGIN SET @i=PATINDEX('%[^a-z0-9]%',@s)IF @i=0RETURN'#True'IF @i-1<>LEFT(@p,1)RETURN'#False'SET @p=STUFF(@p,1,1,'')SET @s=STUFF(@s,1,@i,'')SET @s=STUFF(@s,1,PATINDEX('%[a-z0-9]%',@s)-1,'')END RETURN'#True'END

Cela crée une fonction de valeur de table en ligne qui utilise un CTE récursif pour détecter les limites des mots.

Crée une fonction scalaire qui mâche son chemin à travers les mots et PI jusqu'à 31 décimales (premier 0). Il est appelé de la manière suivante

SELECT dbo.f('SQL I golf, a large procedure is normal. Hefty not terse') --#True

CJam, 40

"
,.'\"?!;:"{-}/S%{,PAV#*iA%=V):V}/]0#)!

On ne sait pas ce que l'on entend par "tout type de ponctuation"; cette solution supprime les ,.'"?!;;caractères.

Outils Bash et Unix, 111

f() { grep ^"$(echo "$@"|grep -Po '[\w]+'|xargs -n1 sh -c 'echo ${#0}'|xargs|tr -d ' ')"<<<31415926535897932; 

NodeJS 32 chiffres 230 octets

Je ne peux pas le raccourcir avec JS: D

var p = "31415926535897932384626433832795", i = 0;
console.log(process.argv[2].split(/[\s,.]+/).every(function(w) {
    if (parseInt(p.charAt(i)) !== w.length) {
        return false;
    }
    i++;
    return true;
}) ? 'True' : 'False');