VS
Size: a a a
VS
V(
A
A
b⛅
A
AZ
AZ
P1
#lang racket
(require sxml)
(require sxml/sxpath)
(require net/url)
(require html-parsing)
(require racket/gui/base)
(require racket/date)
(define Файл-С-Композициями "/home/az/4duk.txt")
(define Список-Композиций-Которые-Играли
(lambda ()
(define Страница-Что-Играло
(html->xexp
(call/input-url (string->url
"http://4duk.ru/4duk/whatWasPlaying.html")
get-pure-port
port->string)))
(define Полный-Список-С-Таймингом
(map (curryr list-ref 1)
((sxpath "//*[@id='bannerCategories']/ul/li")
Страница-Что-Играло)))
(define Список-Без-Тайминга
(map (curryr substring 10)
Полный-Список-С-Таймингом))
(filter (lambda (it) (not (or (string-contains? it "Чипльдук")
(string-contains? it "ЧипльДук"))))
Список-Без-Тайминга)
)
)
(define Удалить-Повторы-Из-Файла
(lambda ()
(display-lines-to-file
(remove-duplicates (file->lines Файл-С-Композициями #:mode 'text))
Файл-С-Композициями
#:mode 'text
#:exists 'replace)))
(define Печать-Композиций-В-Файл
(lambda ()
(display-lines-to-file (Список-Композиций-Которые-Играли)
Файл-С-Композициями
#:mode 'text
#:exists 'append)
(Удалить-Повторы-Из-Файла)))
(Печать-Композиций-В-Файл)
P1
AZ
AZ
AZ
AZ
AZ
PG
AZ