Сообщество IT-специалистов
Ответы на любые вопросы об IT
Профессиональное развитие в IT
Удаленная работа для IT-специалистов
#lang racket (require racket/date) (define (dayNum dayVal monthVal yearVal) (date-week-day (seconds->date (find-seconds 0 0 0 dayVal monthVal yearVal))))