Сообщения playX

Racket, как рендерить HTML файл в web-server?

Я пробовал делать так:

(define (start req)
  (include-template "templates/main.html"))
 
(serve/servlet start)

Но выдвало такую ошибку:

. . ../../../../../collects/racket/contract/private/blame.rkt:159:0: Servlet (@ /servlets/standalone.rkt) exception:
serve/servlet: contract violation
  expected: can-be-response?
  given: "<!DOCTYPE <!DOCTYPE html>\n<html>\n<head>\n    <meta charset=\"utf-8\" />\n    <meta http-equiv=\"X-UA-Compatible\" content=\"IE=edge\">\n    <title>Page Title</title>\n    <meta name=\"viewport\" content=\"width=device-width, initial-scale=1\">\...
  in: the range of
      the 1st argument of
      (->*
       ((-> request? can-be-response?))
       (#:banner?
        boolean?
        #:command-line?
        boolean?
        #:connection-close?
        boolean?
        #:extra-files-paths
        (listof path-string?)
        #:file-not-found-responder
        (-> request? can-be-response?)
        #:launch-browser?
        boolean?
        #:listen-ip
        (or/c #f string?)
        #:log-file
        (or/c #f path-string?)
        #:log-format
        (or/c
         (or/c
          'parenthesized-default
          'extended
          'apache-default)
         (-> request? string?))
        #:manager
        manager?
        #:max-waiting
        natural?
        #:mime-types-path
        path-string?
        #:port
        listen-port-number?
        #:quit?
        boolean?
        #:server-root-path
        path-string?
        #:servlet-current-directory
        path-string?
        #:servlet-loading-responder
        (-> url? any/c can-be-response?)
        #:servlet-namespace
        (listof module-path?)
        #:servlet-path
        string?
        #:servlet-regexp
        regexp?
        #:servlet-responder
        (-> url? any/c can-be-response?)
        #:servlets-root
        path-string?
        #:ssl-cert
        (or/c #f path-string?)
        #:ssl-key
        (or/c #f path-string?)
        #:ssl?
        boolean?
        #:stateless?
        boolean?
        #:stuffer
        (stuffer/c
         (-> serializable? bytes?)
         (-> bytes? serializable?)))
       void)
  contract from: 
      <pkgs>/web-server-lib/web-server/servlet-env.rkt
  blaming: /home/aprokurov/Programming/Racket/web.rkt
   (assuming the contract is correct)
  at: <pkgs>/web-server-lib/web-server/servlet-env.rkt:43.2

Сам html файл:

<!DOCTYPE <!DOCTYPE html>
<html>
<head>
    <meta charset="utf-8" />
    <meta http-equiv="X-UA-Compatible" content="IE=edge">
    <title>Page Title</title>
    <meta name="viewport" content="width=device-width, initial-scale=1">
    <link rel="stylesheet" type="text/css" media="screen" href="main.css" />
    
</head>
<body>
    <h3>"Press that button!"</h3>
    <button type="button" onclick="alert("Clicked!")">"Click it"</button>
</body>
</html>

racket, web, web-server

playX
(21.03.18 17:44:11 MSK)

2 комментария

Racket, объясните про lambda

Учу потихоньку Racket. Раньше был такой код для вычисления дискриминанта:

(define (дискриминант a b c)
  (define bandb (* b b))
  (define fac ( * 4 a c))
  (- bandb fac))

И сам код для решения квадратного уравнение:


(define (квадратное_уравнение a b c)
  (define d (дискриминант a b c))
  (cond
    [(> 0 d)
     (print "Квадратное уравнение не имеет корней""")]
    [(equal? d 0)
     (/ ( - b) (* 2 a))]
    [(> d 0)
     (print "D:""")
     (println d)
     (print "X1"":")
     (println ( / ( + (- b) (sqrt d)) ( * 2 a)))
     (print"\n""X2:")
     (/ ( - ( - b) ( sqrt d)) ( * 2 a))]))
     
     
    (квадратное_уравнение -1 2 3) ;выводит 16 как и полагается

Теперь решил попробовать написать такую же решалку, только с использованием lambda:

#lang racket
(define (напечатать text)
  (println text))
(define two.x
  (lambda (a b c d)
    (( / ( + (- b) (sqrt d)) ( * 2 a)))
    (/ ( - ( - b) ( sqrt d)) ( * 2 a))))
(define x.one
  (lambda (a b)
    (/ ( - b) ( * 2 a))))

(define дискриминант
  (lambda (a b c)
    (let ([f 4])
      (define b.sqrt (* b b))
      (define four.a.c ( * f a c))
      (- b.sqrt four.a.c))))
(define квадратное_уравнение
  (lambda (a b c)
    (let ([D (дискриминант a b c)])
      (cond
        [(> 0 D)
         (напечатать "Квадратное уравнение не имеет корней")]
        [(equal? D 0)
         (x.one a b)]
        [( > D 0)
         (two.x a b c D)]))))

Но получаю данную ошибку:

. . application: not a procedure;
 expected a procedure that can be applied to arguments
  given: -1
  arguments...: [none]

Поясните мне, что я делаю не так?

P.S Дискриминант вычисляется

P.S.S gist кода для решения уравнений: url

racket, scheme, нуб

playX
(19.03.18 20:04:15 MSK)

11 комментариев

Посоветуйте мобилку с Sailfish OS

На данный момент смотрел только Jolla C и Inoi R7,и Jolla C оказался более привлекательным по цене и тем что может в отличии от российского Inoi запускать Android приложения. Может есть еще телефоны на SailfishOS на которые стоит обратить внимание?

jolla, sailfish, выбора тред

playX
(19.03.18 16:01:51 MSK)

30 комментариев

PyQt5, как заставить виджет изменять размер?

Сабж, в QtDesigner всегда задается определенный размер виджету, мне же надо что бы его размер можно было изменять, причем любой виджет из окна (ввод текста, кнопка, QWebView и т.д).

pyqt, python, нуб

playX
(17.03.18 11:28:31 MSK)

3 комментария

Как подключить STM32 плату в macOS или Linux?

Совсем недавно пришла данная плата и собсна возник вопрос, а как ее правильно подключить чтоб ее Arduino IDE видел? В первую очередь интересует вопрос как ее подключить так чтоб в macOS видна была.

На гиктаймс есть данная статья, но работает только под оффтопиком как я понял

arduino, linux, macos, stm32

playX
(16.03.18 16:12:54 MSK)

14 комментариев

Python, os.system, как заставить принять больше 1 аргумента?

Сабж, код:

import standard_term
import os

def exec(arg):
     os.system(standard_term.standard_term, " python3 ", arg)

Но т.к os.system не принимает больше 1 аргумента,но и это не вышло.
Я не остановился, решил сделать переменую с типом tuple и затем превратить ее в строку посредствам ".join, но и это не вышло:

def exec(arg)
        command = ''.join(standard_term.standard_term," python3 ", arg) 
        os.system(command)

#Но получал такую ошибку:
TypeError: join() takes exactly one argument (3 given)

Буду сильно благодарен за возможные варианты решения данной проблемы

python

playX
(12.03.18 15:23:15 MSK)

19 комментариев

Как превратить строку в число в Scheme/Racket?

Есть такой код:

#lang racket
(require "module/learnracket.rktl")


(let loop ()
  (display "Число A")
  (define a (read-line (current-input-port) ))
  (display "Число В")
  (define b (read-line (current-input-port) ))
  (display "Число С")
  (define c (read-line (current-input-port) ))
  (квадратное_уравнение a b c)
  (loop))

Так вот, как в нем ввод с (read-line) с строки перевести в число?

racket, scheme, нуб, я познаю мир

playX
(09.03.18 18:25:37 MSK)

4 комментария

Выход звука через HDMI в FreeBSD

Сабж, как это настроить? В Firefox звука нету.

audio, freebsd, hdmi

playX
(04.03.18 12:15:04 MSK)

7 комментариев

Не стартуют Xorg с Nvidia на FreeBSD

Попробовал накатить FreeBSD,сразу после установки поставил драйвер Nvidia и при startx выбивает ошибку:скрин

Ставил драйвера по данному гайду

UPD. Смог запустить иксы, добавил в driver-nvidia.conf следующие строки:

Section "Device"
	Identifier "NVIDIA Card"
	VendorName "NVIDIA Corporation"
	Driver "nvidia"
EndSection

cast iZEN

freebsd, nvidia

playX
(03.03.18 22:13:26 MSK)

25 комментариев

Аналог HD VideoBox под Linux

Сабж,есть ли аналог этой программы на linux? Для тех кто не знает, эта программа позволяет смотреть кино с разных источников не ищя их по сайтам, но как я понял она только под android

android, films, movie

playX
(03.03.18 12:10:30 MSK)

9 комментариев

RPCS3 и геймпад

Как заставить работать геймпад в RPCS3? У меня Logitech F710
Дистрибутив: Debian Sid/Fedora Rawhide

https://i.imgur.com/HlS5gyh.jpg Так же и не работает с Qjoypad https://i.imgur.com/hwfCk6Q.png

gamepad, rpcs3

playX
(27.02.18 14:56:58 MSK)

9 комментариев

DuckDuckGo и YanDex

Раньше никогда не замечал, но сегодня в поисках нужной мне информации заметил что в углу маленькими буквами написано «В партнерстве с Яндекс», не значит ли это что «безопасный» поисковик сливает в яндекс инфу? Сам скрин:https://imgur.com/a/eqk5y

Линукс тут при том что во многих дистрибутивах duckduckgo по умолчанию поисковик

duckduckgo, слежка, яндекс

playX
(23.02.18 13:56:13 MSK)

11 комментариев

Какой офис пакет лучше всего?

Сабж,уже почти конец 3 четверти учебного года и требуется делать проект и прочее,но так как офисом не пользуюсь то задам вопрос,что лучше и что имеет большую совместимость с MSOficce: LibreOffice,Calligra,OpenOffice

выбора тред, офисное по

playX
(22.02.18 20:22:43 MSK)

60 комментариев (стр. 2)

Есть ли у Devuan образ с non-free?

Сабж, что то не отыскал образа с non free прошивкамм

devuan

playX
(18.02.18 10:37:55 MSK)

6 комментариев

Драйвер для принтера Xerox WorkCenter 3045

Сабж, где его достать? Ни в федоре, ни в опенсюз, ни в RHEL не заводится

drivers, xerox, принтер

playX
(15.02.18 22:00:39 MSK)

2 комментария

Epiphany зависает при просмотре видео в YouTube

Решил попробовать полностью переехать на вейленд, из браузера выбрал Epiphany как самый готовый(Qupzilla не понравился внешним видом).Но в нем есть все же одна проблема, видео в ютубе не играет никак, ПК просто наглухо виснет, даже в tty по alt+f* не зайти, как заставить его работать?

epiphany, wayland

playX
(09.02.18 19:49:30 MSK)

16 комментариев

Как в Anaconda installer не ставить GRUB?

Сабж, не нашел галочки что отвечает за установку GRUB.

anaconda, grub

playX
(06.02.18 05:46:40 MSK)

1 комментарий

шрифты OSX в RHEL

Как поставить шрифты из OSX в RHEL? В убунту они есть в репозитории, в RHEL я ничего похожего не нашел, буду благодарен тем кто расскажет как это сделать

macos, rhel, шрифты

playX
(05.02.18 17:01:00 MSK)

26 комментариев