Мне просто не хотечется куда-то запротоколировать три часа вчера и четыре часа сегодняДомашнее задание по программированию -- написать функцию, куда надо засунуть число + обозначение Фаренгейта или Цельсия, а она пересчитывает градусы из Фаренгейта Цельсия и наоборот. При условии, что есть абсолютный ноль, когда Функция должна на выводе говорить, типа -500 градусов Цельсия это слишком холодно. Я не удержалась и добавила строчку с температурой гарения бумаги. И -- нет, программирование по-прежнему занимает у меня много-много часов, просто пиздец как много. И да, наверняка эту же функцию можно написать как-то поизящней, можно даже потратить еще пару часов на поиски более совершенного текста))
предмет счастья и радости(defun c_to_f_scala (x y) (cond ((string= "celsius" y) (cond ((= x 233) (format t "233 degrees Celsius are equal to 451 degrees Fahrenheit — the temperature at which book paper catches fire, and burns.")) ((> x -273.15)(format t "~a degrees Celsius are equal to ~a degrees Fahrenheit" x (+ (* x 1.8) 32))) (T (format t "WARNING! ~a degrees Celsius is too cold to exist!" x)))) ((string= "fahrenheit" y) (cond ((= x 451) (format t "Fahrenheit 451 — the temperature at which book paper catches fire, and burns.")) ((> x -459.67) (format t "~a degrees Fahrenheit are equal to ~a degree Celsius" x (/ (- x 32) 1.8))) (T (format t "WARNING! ~a degree Fahrenheit is too cold to exist!" x)))) (T (format t "False"))))