prof. dr hab. Włodzimierz Zwonek
Dziekan Wydziału Matematyki i Informatyki
Uniwersytetu Jagiellońskiego
Łojasiewicza 6
30-348 Kraków
Szanowny Panie Dziekanie,
(defun ssl-connect () ;; this is a god damn hack | |
(let* ((socket (usocket:socket-connect "lightbringer.furcadia.com" 80)) | |
(stream (usocket:socket-stream socket))) | |
(sleep 1) | |
(loop while (listen stream) | |
for line = (read-line stream nil stream) | |
until (eq line stream) | |
do (format t "S> ~A~%" line)) | |
(format t "C> ~A~%" "starttls") | |
(format stream "starttls~C~C" #\Return #\Linefeed) |
// based on a keyboard map from an 'xkb/symbols/pl' file | |
default partial alphanumeric_keys | |
xkb_symbols "basic" { | |
// Visualisation and description: http://podziemie.net/xkb/pl | |
// Contact: Michał Górny <zrchos+freedesktop@gmail.com> | |
include "latin" |
;;; Matrix utilities. | |
(defun matrix= (matrix-1 matrix-2) | |
(destructuring-bind (m1y m1x) (array-dimensions matrix-1) | |
(destructuring-bind (m2y m2x) (array-dimensions matrix-2) | |
(and (= m1y m2y) | |
(= m1x m2x) | |
(loop for y below m1y | |
always (loop for x below m1x | |
always (= (aref matrix-1 y x) |
;; modified from pzmq examples | |
(defun hwclient (&optional (server-address "tcp://localhost:5555")) | |
"Translation of http://zguide.zeromq.org/c:hwclient updated for ZMQ 3. | |
Includes some parameters in with-* macros to demonstrate syntax." | |
(pzmq:with-context (ctx :max-sockets 10) | |
(pzmq:with-socket (requester ctx) (:dealer :affinity 3 :linger 100) | |
;; linger is important in case of (keyboard) interrupt; | |
;; see http://api.zeromq.org/3-3:zmq-ctx-destroy | |
(pzmq:connect requester server-address) |
So recently a religious debate intense discussion happened on #lisp
about whether the following form:
;; Form 1
(loop for i from 1 to 5 finally (return i))
should return 5
or 6
(or, in other words, (1+ 5)
- this notation is important as it will be used later).
I argue that it is invalid for it to return 6
and 5
must be returned instead.
;; Do not use - a proper fix was committed into my fork at phoe-trash/ccl. | |
(defconstant single-float-min-e | |
(- 2 ccl::ieee-single-float-bias ccl::ieee-single-float-digits)) | |
(defconstant double-float-min-e | |
(- 2 ccl::ieee-double-float-bias ccl::ieee-double-float-digits)) | |
;; TODO: maybe-inline %flonum-to-digits, we don't need the indirection | |
(declaim (inline %flonum-to-digits)) | |
(defun %flonum-to-digits (char-fun |
[{ | |
"romaji": "Agari", | |
"kanji": "和がり", | |
"english": "Win", | |
"explanation": "Generic call for winning a hand." | |
}, | |
{ | |
"romaji": "Agaripai", | |
"kanji": "和がり牌", | |
"english": "Winning tile", |
Dear GitHub Trust and Safety Team,
you've requested me to edit and delete the contents of the two posts, which has now happened:
I would like to thank you for moderating GitHub and upholding your GitHub Community Guidelines, specifically including the following points: