Напишіть програму, яка визначає функцію, яка може перевірити, чи є змінною рядка під назвою "все, що ви хочете або ввели користувачем", чи не пієм. (piem = історія чи поема, в якій довжини слова представляють цифри π ( з Вікіпедії ))

Деякі приклади:

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

Перед обробкою слід видалити будь-які розділові знаки або новий рядок. Чистий код гольфу, найкоротший виграш

Кінцева дата: вечір 1.10.2014

Різні відповіді

• Скільки цифр нам потрібно обробити? Більше 10
• Як цікаво, як слід інтерпретувати 0 в PI? Пропущено або 10 буквених слів? Як 10 букв слів
• "змінна під назвою piem" - значить, ім'я параметра має бути piem? Ні, так, текст запитання виправлений
• Забавним бонусом може стати рішення, яке саме по собі є пієм. Якщо ваше рішення - пієм, ви отримуєте * 0,5 бонуса
• Заради аргументів, чи завжди _ пунктуація? Ви можете вирішити, чи це розділові знаки, чи ні
• Незрозуміло, що мається на увазі під "будь-яким пунктуацією" я маю на увазі. '"?! ;; ()
• Тож цифри слід рахувати? А штраф Закону був би помилковим? Цифри слід розглядати як літери, штраф Закону = Неправдивий; Закон штрафу = Правда

Коментарі

• Рішення APL слід рахувати в байтах
• Якщо ваше рішення працює на 100+ пі пі, ви отримуєте * 0,8 бонуса
• Через великий інтерес кінцева дата - це ще день на майбутнє.

APL (39)

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

Він використовує всі цифри, що забезпечує константа pi інтерпретатора APL, до ліміту 99. У моєму випадку (Dyalog APL 14 32-розрядний), який становив 16 цифр. 64-бітова версія, ймовірно, має більше цифр. Але 16 цифр достатньо для роботи цих прикладів.

Рядки, що містять більше такої кількості слів, не зможуть , навіть якщо всі цифри, які він міг перевірити, були правдивими. (Те ж саме стосується інших публікацій, як у цій статті.) Наприклад, якби було лише 10 цифр, "Як я хочу випити", одна з них не зможе. Це можна виправити, але ціною 14 символів:

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

Ця версія прийме будь-який рядок, де перші N цифр є правильними.

JavaScript (169) (140) (137) (135) (63) для 17 цифр пі

У моїй версії Law's fineі Law ' s fineповерніть обидва вірні.

Найновіша версія (63) Інго Бюрк та hsl

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

Нова версія (135) на 17 цифр пі (спасибі Інго Бюрк):

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

Стара версія (169) для 32 цифр пі:

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;
}

Рубі, 113 101 79 (98 * 0,8)

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

Пояснення

• Введення береться за аргумент лямбда. Він очікує String.
• Пі обчислюється до 999десяткових знаків і перетворюється на рядок із .вилученим.
• Знаки пунктуації видаляються з поеми і вона розбивається на окремі слова. "Let's"обчислюється як два слова: "Let"і "s".
• Використовуйте Array#mapдля перетворення кожного слова у розмір слова, об'єднайте їх у String.
• Використовуючи Regexp, перевірте, чи Stringпочинаються два створені s однакових символів.

Я застосував бонус за обробку 100+ цифр. _не розглядається як розділові знаки в цьому рішенні.

Mathematica, 123 байти * 0,8 = 98,4

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

Майже найдовше подання досі, але:

• Він працює для будь-якої кількості цифр Pi.
• Він видаляє всі необхідні символи ASCII та розрив рядка, не розбиваючи слова в цих місцях.
• Він обробляє 0-цифру в Pi правильно (як 10-літерні слова)

Пітон - 130 127 116 - 17 цифр пі

Як у відповіді @flawr , Law ' s fineі Law's fineобидва повертають True.

Завдяки @Emil за видалення 12 символів з програми.

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

Ява, 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;}

пітон 3, 17 цифр пі, 104

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

Пітон 3 - 129

Знаки пунктуації не враховуються:

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

А тепер про велике рішення 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

Це створює функцію оцінювання вбудованої таблиці, яка використовує рекурсивний CTE для виявлення меж слова.

Створює скалярну функцію, яка пережовує шлях через слова та PI до 31 десяткових знаків (перший 0). Його називають наступним чином

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

CJam, 40

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

Незрозуміло, що розуміється під "будь-яким видом пунктуації"; це рішення видаляє ,.'"?!;;символів.

Інструменти Bash і unix, 111

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

NodeJS 32 цифри 230 байт

Я не можу скоротити його з 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');