Без заголовка

Через три дня - 19 сентября. 19 сентября 2003 года я начал вести список книг, которые читаю. За три дня я вряд ли успею ещё что-то дочитать, так что результаты, можно сказать, уже известны - 60 книг за год. Это по пять книг в месяц или чуть больше, чем книга в неделю.

Кстати, для подсчёта количеста прочитанных книг нужна всего одна строчка - нужно просто посчитать количество строк, начинающихся с даты. Я немного побаловался - подсчитал количество этих строк на разных языках, тех, которые были под рукой.

Perl:
"print scalar grep {/^\d+\.\d+/} <>"

Unix Command Line Utils:
grep -E "^[0-9]+\.[0-9]+\."|wc -l

PHP:
echo preg_match_all('/^\d+\.\d+\./m', file_get_contents('php://stdin'), \$m);

Windows NT CMD:
@SET C=0 & FOR /F %%I IN ('findstr "^[0-9][0-9]*\.[0-9][0-9]*\."') DO @SET /A C+=1
@ECHO %C%

Windows Script Host. JScript:
for (i = 0; !WScript.StdIn.AtEndOfStream;)
if (/^\d+\.\d+\./.test(WScript.StdIn.ReadLine())) i++
WScript.Echo(i)

Microsoft Word Visual Basic:
Sub Макрос1()
Cnt = 0
With ActiveDocument.Content.Find
   .Text = "^#^#.^#^#.^#^#^#^#"
   .Execute
   While .Found
       .Execute
       Cnt = Cnt + 1
   Wend
End With
MsgBox Cnt
End Sub
16 сентября 2004 19:00

Ваше имя или адрес блога (можно OpenID):

Текст вашего комментария, не HTML: