Пишем 2000 фактов о себе

[FA]

Любой интернет-форум можно довольно смело переименовывать...

не-не... такого скопления и столь явно выраженных больше нигде нет.

[Тайльнемер]

ну я почти каждый день выдергиваю. очень бесит щетина меня

Чё-то я очень плохо себе это представляю.
Чтобы выдернуть волос пинцетом, он ведь должен сперва вырасти до какой-то длины. Они как вырастают — поодиночке и сразу на большую длину?
Сколько волос в день вам приходится выдёргивать? Это больно?
Почему вас не устраивает бритьё? Если каждый день бриться, то что, щетина вырастать успевает?

[Sudarshana]

Тайльнемер, не больно; выдергивать много приходится. бритье не устраивает еще и потлму, что иногда режусь + от крема для бритья сохнет кожа

[Joris]

даже меня?

нет, всех кроме ФА
это само собой разумеется

Тайльнемер, не больно; выдергивать много приходится. бритье не устраивает еще и потлму, что иногда режусь + от крема для бритья сохнет кожа

1) Практика, практика и практика — и резаться не будете
2) Любая херня после притья — и сохнуть ничего не бует

[FA]

Практика, практика и практика — и резаться не будете

аутистам нравится чесать, дергать... волосы, ресницы, бороду...

нет, всех кроме ФА
это само собой разумеется

ну хвала Аллагьу!

ЗЫ.интересно, юуурген и юрганов на э-новости - это не одно лицо?

[Demetrius]

201. мне нравится щетина (как я сам со щетиной, так и др. люди)
202. я никогда не пользовался кремом для бритья
203. мне как-то пофиг, что я иногда режусь.
204. если честно, я обычно замечаю, что порезался, визуально; как-то эти мелкие порезы и не чувствуются вообще

205. 1-я буква имени моей любимой певицы — С.
206. 2-я буква имени моей любимой певицы — о.
207. 3-я буква имени моей любимой певицы — ф.
208. 4-я буква имени моей любимой певицы — и.
209. 5-я буква имени моей любимой певицы — я.
210. 6-я буква имени моей любимой певицы —  .
211. 7-я буква имени моей любимой певицы — Р.
212. 8-я буква имени моей любимой певицы — о.
213. 9-я буква имени моей любимой певицы — т.
214. 10-я буква имени моей любимой певицы — а.
215. 11-я буква имени моей любимой певицы — р.
216. 12-я буква имени моей любимой певицы — у.
217. При записи имени моей любимой певицы используется 2 большие буквы.
218. При записи имени моей любимой певицы используется 9 маленьких букв.
219. При записи имени моей любимой певицы используется 11 буквы всего.
220. При записи имени моей любимой певицы не используется нисколько цифр.
221. При записи имени моей любимой певицы используется 1 пробельный символ.

;; Запускать в Kaw'е:
(require 'srfi-1)

(define (letter-facts of-what word)
  (map (lambda (letter i)
         (string-append (number->string (+ i 1)) "-я буква " of-what
                        " — " (string letter) "."))
       (string->list word)
       (iota (string-length word))))


(define (num-with-case-form n case-forms)
  (let ((n%100 (modulo n 100))
        (n%10 (modulo n 10)))
    (string-append
      (number->string n)
      " "
      (cond
        ((or (and (>= n%100 11) (<= n%100 19)) (and (>= n%10 2) (<= n%10 4)))
         (cadr case-forms))
        ((= n%10 1)
         (car case-forms))
        (else
         (caddr case-forms))))))

(define (stat-facts of-what word)
  (let ((predicates `((("большая буква" "большие буквы" "больших букв") . ,char-upper-case?)
                      (("маленькая буква" "маленькие буквы" "маленьких букв") . ,char-lower-case?)
                      (("буква вообще" "буквы всего" "букв всего") . ,char-alphabetic?)
                      (("цифра" "цифры" "цифр") . ,char-numeric?)
                      (("пробельный символ" "пробельных символов" "пробельных символов") . ,char-whitespace?)))
        (char-list (string->list word)))
    (map
      (lambda (predicate-info)
        (let ((predicate (cdr predicate-info))
              (name (car predicate-info)))
          (let ((num (length (filter predicate char-list))))
            (string-append "При записи " of-what
                           (if (> num 0)
                               (string-append " используется " (num-with-case-form num name))
                               (string-append " не используется нисколько " (caddr name)))
                           "."))))
      predicates)))

(define (facts of-what word)
  (append (letter-facts of-what word)
          (stat-facts of-what word)))

[Тайльнемер]

2 большие буквы
9 маленьких букв
11 буквы всего

Как-то ваш скрипт странно работает.

[Sudarshana]

Demetrius, и вы ради 17 фактов эту простыню написали? а пробел - это не буква ващета.

[Тайльнемер]

Как-то ваш скрипт странно работает.

А, вот в чём дело:

(cond
        ((or (and (>= n%100 11) (<= n%100 19)) (and (>= n%10 2) (<= n%10 4)))
         (cadr case-forms))
        ((= n%10 1)
         (car case-forms))
        (else
         (caddr case-forms))))))

Надо:
(cond
        ((or (and (>= n%100 11) (<= n%100 19)) (>= n%10 5))
         (caddr case-forms))
        ((= n%10 1)
         (car case-forms))
        (else
         (cadr case-forms))))))

[Demetrius]

2 большие буквы
9 маленьких букв
11 буквы всего

Как-то ваш скрипт странно работает.

И правда. Спасибо! Надо num-with-case-form определить так:
(define (num-with-case-form n case-forms)
  (let ((n%100 (modulo n 100))
        (n%10 (modulo n 10)))
    (string-append
      (number->string n)
      " "
      (cond
        ((and (>= n%10 2) (<= n%10 4))
         (cadr case-forms))
        ((and (not (and (>= n%100 11) (<= n%100 19))) (= n%10 1))
         (car case-forms))
        (else
         (caddr case-forms))))))

[Demetrius]

(cond
        ((or (and (>= n%100 11) (<= n%100 19)) (>= n%10 5))
         (caddr case-forms))
        ((= n%10 1)
         (car case-forms))
        (else
         (cadr case-forms))))))

Ну да, так тоже можно.

[Demetrius]

Demetrius, и вы ради 16 фактов эту простыню написали? а пробел - это не буква ващета.

а) Простыню писать интересно же.
б) Кроме того, первая часть простыни уже была на первой странице.
в) Зато в будущем я могу заменить Софию Ротару кем-нибудь ещё и сгенерировать ещё 16 фактов одной строчкой. Просто я пока что не хочу этим злоупотреблять, а то неспортивно.

а пробел - это не буква ващета.

Да, лучше добавить filter:
(define (letter-facts of-what word)
  (map (lambda (letter i)
         (string-append (number->string (+ i 1)) "-я буква " of-what
                        " — " (string letter) "."))
       (filter char-alphabetic? (string->list word))
       (iota (string-length word))))

[Тайльнемер]

(cond
        ((and (>= n%10 2) (<= n%10 4))
         (cadr case-forms))
        ((and (not (and (>= n%100 11) (<= n%100 19))) (= n%10 1))
         (car case-forms))
        (else
         (caddr case-forms))))))

Чё-то не понял я. Если n = 12, то какое из условий он возьмёт, разве не первое?

[Тайльнемер]

))))))

Весёлый народ — лисперы!

[Demetrius]

Чё-то не понял я. Если n = 12, то какое из условий он возьмёт, разве не первое?

Блин, я опять всё перепутал. Да, вы правы, Ваш вариант лучше.

Итого финальный вариант преобретает вид:

;; Run in Kawa Scheme
(require 'srfi-1)

(define (letter-facts of-what word)
  (map (lambda (letter i)
         (string-append (number->string (+ i 1)) "-я буква " of-what
                        " — " (string letter) "."))
       (filter char-alphabetic? (string->list word))
       (iota (string-length word))))

(define (num-with-case-form n case-forms)
  (let ((n%100 (modulo n 100))
        (n%10 (modulo n 10)))
    (string-append
      (number->string n)
      " "
      (cond
        ((or (and (>= n%100 11) (<= n%100 19)) (>= n%10 5))
         (caddr case-forms))
        ((= n%10 1)
         (car case-forms))
        (else
         (cadr case-forms))))))

(define (stat-facts of-what word)
  (let ((predicates `((("большая буква" "большие буквы" "больших букв") . ,char-upper-case?)
                      (("маленькая буква" "маленькие буквы" "маленьких букв") . ,char-lower-case?)
                      (("буква вообще" "буквы всего" "букв всего") . ,char-alphabetic?)
                      (("цифра" "цифры" "цифр") . ,char-numeric?)
                      (("пробельный символ" "пробельных символов" "пробельных символов") . ,char-whitespace?)))
        (char-list (string->list word)))
    (map
      (lambda (predicate-info)
        (let ((predicate (cdr predicate-info))
              (name (car predicate-info)))
          (let ((num (length (filter predicate char-list))))
            (string-append "При записи " of-what
                           (if (> num 0)
                               (string-append " используется " (num-with-case-form num name))
                               (string-append " не используется нисколько " (caddr name)))
                           "."))))
      predicates)))

(define (facts of-what word)
  (append (letter-facts of-what word)
          (stat-facts of-what word)))

Добавил ещё автоматическую нумерацию:
(define (facts/n of-what word starting-number)
  (let ((f (facts of-what word)))
    (map (lambda (fact i)
           (string-append (number->string i) ". "
                          fact))
           f
           (iota (length f) starting-number))))

Проверка:

222. 1-я буква названия аниме, которое очень нравится — N.
223. 2-я буква названия аниме, которое очень нравится — e.
224. 3-я буква названия аниме, которое очень нравится — o.
225. 4-я буква названия аниме, которое очень нравится — n.
226. 5-я буква названия аниме, которое очень нравится — G.
227. 6-я буква названия аниме, которое очень нравится — e.
228. 7-я буква названия аниме, которое очень нравится — n.
229. 8-я буква названия аниме, которое очень нравится — e.
230. 9-я буква названия аниме, которое очень нравится — s.
231. 10-я буква названия аниме, которое очень нравится — i.
232. 11-я буква названия аниме, которое очень нравится — s.
233. 12-я буква названия аниме, которое очень нравится — E.
234. 13-я буква названия аниме, которое очень нравится — v.
235. 14-я буква названия аниме, которое очень нравится — a.
236. 15-я буква названия аниме, которое очень нравится — n.
237. 16-я буква названия аниме, которое очень нравится — g.
238. 17-я буква названия аниме, которое очень нравится — e.
239. 18-я буква названия аниме, которое очень нравится — l.
240. 19-я буква названия аниме, которое очень нравится — i.
241. 20-я буква названия аниме, которое очень нравится — o.
242. 21-я буква названия аниме, которое очень нравится — n.
243. При записи названия аниме, которое очень нравится используется 3 большие буквы.
244. При записи названия аниме, которое очень нравится используется 18 маленьких букв.
245. При записи названия аниме, которое очень нравится используется 21 буква вообще.
246. При записи названия аниме, которое очень нравится не используется нисколько цифр.
247. При записи названия аниме, которое очень нравится используется 2 пробельных символов.

[Тайльнемер]

При записи названия аниме, которое очень нравится используется 3 большие буквы

А запятая, между «нравится» и «используется»?

[Demetrius]

Как вы, лисперы, не путаетесь бесконца в скобках?

Мы используем редакторы с bracket matching.

В Windows я использую AkelPad с плагином XBrackets, в Linux'е ещё круче — vim с плагином Rainbow Parenthesis (есть новая версия этого плагина, но я её не пробовал). Впрочем, радужность скобок не особо помогает.

[Demetrius]

А запятая, между «нравится» и «используется»?

Я ниграмодный.

                               (string-append ", используется " (num-with-case-form num name))
                               (string-append ", не используется нисколько " (caddr name)))

[Demetrius]

О скобках:

There are 4 parentheses at the end of that call to cons.  How do
Lisp programmers deal with this?  They don't.  You could add or
subtract a right paren from that expression and most wouldn't notice.
Lisp programmers don't count parens.  They read code by indentation,
not parens, and when writing code they let the editor match parens
(use :set sm in vi, M-x lisp-mode in Emacs).

[Тайльнемер]

(string-append ", используется " (num-with-case-form num name))
(string-append ", не используется нисколько " (caddr name)))

А теперь вместь «аниме, которое очень нравится» подставьте «моего любимого аниме».  (:да, издеваюсь:)

[Joris]

это читерство... я снимаю свою кандидатуру

[Demetrius]

А теперь вместь «аниме, которое очень нравится» подставьте «моего любимого аниме».  (:да, издеваюсь:)

Блин, и точно! Это надо было в аргументе запятую, а не в функции.

это читерство... я снимаю свою кандидатуру

С этого всё началось, см. первую страницу.

[Тайльнемер]

Это надо было в аргументе запятую, а не в функции.

В каких там случаях тире поглощает запятую?
В таком предложении
«1-я буква названия аниме, которое очень нравится, — N.»
запятая нужна?

[Demetrius]

В таком предложении
«1-я буква названия аниме, которое очень нравится, — N.»
запятая нужна?

Да.

[Тайльнемер]

это читерство... я снимаю свою кандидатуру

Топик-стартер даже и не рассчитывал, что найдутся те, кто пройдёт по-честному