Через три дня — 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