Язык программирования Racket долгое время распространялся под LGPLv3. Но теперь, благодаря замене основы на Chez Scheme, появилась возможность распространять его на условиях Apache 2.0/MIT.
>>> Подробности
Есть папка с текущими бэкапами. Её надо синхронизировать на удалённый сервер. Объём папки около 8ТБ, между серверами 1Гб/с.
Бэкапы — копии виртуальных жёстких дисков, поэтому между синхронизациями должны изменяться несильно.
Пытаюсь по rsync. Очень долго тупит вначале. Потом медленно-медленно копирует. С диска читает со скоростью 20-30МБ/с, в результате время копирования чуть ли не больше, чем копировать целиком. В процессах показывает, что загружает одной ядро ЦП (из 24) и, похоже, из-за этого тормозит.
Есть что-то более адекватное? А в идеале, чтобы можно было посчитанные контрольные суммы на удалённом сервере держать в файле рядом, а не заново пересчитывать все 8 терабайт.
Как правильно его использовать?
В SRFI приведён пример:
(if (not (load-bundle! bundle-name))
(begin
(declare-bundle! bundle-name (cdr translation))
(store-bundle! bundle-name))))
Но ведь в этом случае, если translation будет изменён после первого запуска, то при запуске будет использоваться старая версия: (load-bundle! bundle-name) загрузит старую сохранённую версию и вернёт #t.
Просто писать declare-bundle!, а остальное игнорировать? Или делать макрос со сторонним эффектом времени компиляции?
По ссылке https://code.ach.gov.ru/public доступен исходный код программ (в основном скриптов), написанных программистами счётной палаты.
>>> Исходный код
Появляется горизонтальная прокрутка в теме black при просмотре комментариев. Например, по адресу Верните формат даты взад.
Проверил на Linux (Firefox 65.0.1), Windows (Firefox, Chrome).
Прокрутка пропадает при уменьшении ширины окна примерно до 670 пикселей. Зато появляется прокрутка в этом окне (где я сейчас пишу). Здесь точно вижу, что за границы выходят поля Заглавие и Метки.
Параметры монитора
screen #0:
dimensions: 3840x2160 pixels (610x343 millimeters)
resolution: 160x160 dots per inch
Простейший пример
main = do
refval = newIORef 0
forever $ do
line <- getLine
let newval = read line :: Int
val <- readIORef refval
writeIORef refval newval
putStrLn $ show $ newval-val
Как-то можно обойтись без IORef?
Хочу написать программу. Идеологически хочу её сделать как пачку микросервисов, но не хочу привязываться к конкретному языку программирования.
Поэтому нужен протокол для общения между микросервисами. Нашёл https://github.com/hprose : высокая скорость, много поддерживаемых языков. Но хочу уточнить, может есть уже что-то более популярное.
Как определяется, в какую сторону должно быть обобщение?
То есть, при решении конкретной задачи как определить, что должно быть параметром, а что — неизменяемой частью.
Например, есть задача «получить сумму от 1 до 100».
Самым быстрым решением будет
class Sum1_100
{
int run() { return 5050; }
}
но в этом случае программист поработал за компьютер. Тривиальное решение с расчётом компьютером
class Sum1_100
{
int run()
{
int res = 0;
for(int i=1; i<=100; i++) res+=i;
return res;
}
}
Но получив такую задачу, почти всегда решение выглядит примерно так:
class Sum1_n
{
int n;
Sum1_n(int _n = 100) { n = _n; };
int run()
{
int res = 0;
for(int i=1; i<=n; i++) res+=i;
return res;
}
}
на случай, если потребуется не до 100, а до какого-то другого числа.
И вот здесь у меня вопрос: почему в «получить сумму от 1 до 100» большинство параметризуют именно 100? Посему не «сумму» (тогда параметром будет операция от 100 элементов) или не «от 1 до 100» (тогда параметром будет некая последовательность). Или вообще не всё сразу? С вызовом типа
auto_ptr<Op> op = new GenOp(operator+, 100);
auto_ptr<Seq> seq = new Seq(1, 100);
auto_ptr<Apply> = new GenApply(op, seq);
result = Main->run();
Как для произвольного алгоритма определяется, что является параметром, а что неизменяемой частью?
Внимательное прочтение GPL оставило впечатление, что некоторые случаи добросовестного использования на самом деле нарушают GPL.
Согласно GPL, продавец телефона должен передать покупателю исходные коды программ под GPL, входящих в версию Android на телефоне.
Если я неправ, можете указать где?
Если в обычном языке есть выражение типа f1() + f2() + f3(), то в Хаскелле, если эти функции имеют побочные эффекты, приходится писать
do
tmp1 <- f1
tmp2 <- f2
tmp3 <- f3
return tmp1+tmp2+tmp3
Можно ли как-нибудь написать то же самое без промежуточных переменных?
Если связь нестабильна, то tcp соединения часто уходят в какую-то «спячку». При этом второе соединение к тому же серверу успешно открывается, то есть связь есть. Есть возможность в своём клиент-серверном приложении придумать какое-то нормальное решение?
Необходимо оперативно получать оповещение с удалённого компьютера (когда событие произошло, оповещение надо через пару секунд), а получатель оповещения за NAT'ом. Пока придумал только постоянно гонять сообщения, что всё хорошо, а если больше, чем на секунду задержка, то сбрасывать соединение и соединяться заново. Но выглядит как-то костыльно. Кажется, что тогда проще на UDP накостылять свой надёжный протокол.
Есть какие-нибудь идеи?
Пётр пришёл в гости к своему бывшему однокласснику Василию. Они не виделись уже 30 лет. Войдя в комнату, Пётр увидел мальчика. Василий с гордостью сообщил, что это его сын и что всего у него уже двое детей.
Внезапно у Петра зазвонил телефон. Звонил Фёдор, друг Петра и также бывший одноклассник Петра и Василия. Пётр рассказал Фёдору, что он в гостях у Василия, и что у Василия двое детей и один из них сын. Фёдор предложил пари, что второй ребёнок — девочка. Более того, он согласен был поставить полторы тысячи рублей против тысячи рублей Петра. Пётр ненадолго задумался и согласился.
Пётр понимал, что по теории вероятностей, вероятность того, что оба мальчики вдвое меньше вероятности того, что дети разнополые. Но у него была идея. Положив трубку, он спросил у Василия «Этот сын — старший ребёнок?». Теперь, если ответ «да», то вероятность того, что младший ребёнок — девочка уже 50 на 50. Если ответ «нет», то аналогично то вероятность того, что старший ребёнок — девочка тоже 50 на 50 и Пётр уверен, что его шансы на победу резко выросли.
Как оцениваете, каковы шансы Петра выиграть полторы тысячи рублей?
Предположим есть объект с достаточно большим количеством полей. Причём, для объекта они важны (почти) все, значений по-умолчанию у них нет и они зависят друг от друга (например, дата изменения файла должны быть не меньше даты создания и т.д.).
Как правильно написать конструктор такого объекта? Вроде как банально new myItem(f1, f2, f3, ..., f32) некрасиво. В голову приходит только что-то вроде
i = new myItem();
i.f1 = ...;
i.f2 = ...;
...
i.f32 = ...;
i.init(); // здесь проверяется корректность данных
но это как-то совсем громоздко. Как-то красивее можно?
Пара вопросов
1. Всегда ли чистые функции для одинаковых аргументов выполняются один раз? То есть
f yy = (yy, myCalc $ head yy)
g = (myCalc y, f [y])
и
f yy x = (yy, x)
g = let x = myCalc y
(x, f [y] x)
2. Какой аналог для i++ в IORef?
x <- readIORef i
let y = x + 1
writeIORef i y
return y
можно сделать короче?
func = (. map) . (.) . filter
Его только я понять не могу или это аналог однострочника на PERL? Если только я, то посоветуйте, что почитать или как проще понимать такие функции.
Собственно, вопрос в теме.
Провёл тест на скорость работы одной и той же функции, написанной нормально и через ФВП. Получил потерю производительности в полтора раза:
SBCL:
(declaim (optimize (speed 3) (safety 0)))
(asdf:oos 'asdf:load-op :alexandria)
(defun f (x)
(+ (+ (+ x 1) 2) 1))
(let ((f-comp
(alexandria:compose
(lambda (x) (+ x 1))
(lambda (x) (+ x 2))
(lambda (x) (+ x 1)))))
(defun f-comp (x)
(funcall f-comp x)))
(defconstant iter 10000000)
(time
(dotimes (i iter)
(f i)))
(time
(dotimes (i iter)
(f-comp i)))
Evaluation took:
0.181 seconds of real time
0.180000 seconds of total run time (0.180000 user, 0.000000 system)
99.45% CPU
325,363,554 processor cycles
0 bytes consed
Evaluation took:
0.296 seconds of real time
0.296000 seconds of total run time (0.296000 user, 0.000000 system)
100.00% CPU
530,610,480 processor cycles
0 bytes consed
Racket:
#lang racket
(define (f x)
(+ (+ (+ x 1) 2) 1))
(define f-comp
(compose
(lambda (x) (+ x 1))
(lambda (x) (+ x 2))
(lambda (x) (+ x 1))))
(define iter 1000000)
(time
(for ([i iter])
(f i)))
(time
(for ([i iter])
(f-comp i)))
cpu time: 728 real time: 726 gc time: 0
cpu time: 1244 real time: 1244 gc time: 0
Получается, функции высшего порядка лучше не использовать? А как с этим борются в Haskell, если там без них почти ничего написать нельзя (точнее не принято рекомендуемым стилем программирования)?
Стоит компьютер с KVM. При переключении Linux теряет монитор и выставляет разрешение 1024x768.
Переключаю обратно, разрешение включается не сразу, приходится запускать gnome-control-center display
Можно как-то отключить это автоопределение?
Вроде как надо называть переменные (а также программные файлы) на правильном английском языке даже если программу предполагается использовать только на территории РФ.
В связи с этим вопрос: как вы находите правильные термины?
Вот например, понадобилось сделать печатную форму оборотной ведомости. Иду в гугл и он мне предлагает negotiable bill, иду на yandex — там предлагается turnover sheet. Нутром чую что второй вариант правильней, но доказать не могу. И, самое главное, спросить-то некого. Заказчик отчёта — нормальный русский бухгалтер, знающий кроме русского только немецкий.
Как вы в такой ситуации определяете правильный термин при разработке программы?
| ← предыдущие | следующие → |
