I hereby claim:
- I am temporal on github.
- I am temporal_pl (https://keybase.io/temporal_pl) on keybase.
- I have a public key ASCI--smw7XaN_sGcdGKg27RlH9QLy7Pv8r975Qg4P0YMAo
To claim this, I am signing this object:
/* | |
Google now uses "~=[,,_,,]:3" as an emoticon for Nyan Cat animation | |
on Google Plus. It's handy to have this character sequence bound to | |
a key. Thanks to Benjamin Slade for the idea. | |
Nyan Cat is bound by default to "N". As it is to be used when | |
editing a text field, you'll need to use "C-z" first, so the | |
sequence is: "C-z N". | |
Quick hack based on Conkeror source code; namely, |
/* general */ | |
body | |
{ | |
margin-left: 100px; | |
margin-right: 100px; | |
} | |
/* comments */ | |
.post | |
{ |
;;;; regenerate.lisp - script for regenerating [redacted] static HTML from template files. | |
(ql:quickload "cl-emb") | |
(ql:quickload "cl-fad") | |
(ql:quickload "cl-ppcre") | |
(defparameter *configuration* '() "plist containing config parameters passed to EMB templates.") | |
(defparameter *essays* '() "plist containing essay descriptors generated by `defessay'.") | |
(defconstant +default-properties+ '(:title nil :url nil :orig-title nil :orig-url nil :date nil :orig-date nil :alt-translations nil :translators nil :editors nil :disabled nil :additional-html nil :part-of-hnp nil :description "")) |
(defbehavior root-0 | |
(if (alive) | |
(if (enemy-in-range) | |
(attack (find-weakest-enemy-in-range)) | |
(move-to-enemy find-nearest-enemy)))) |
;;; repl.sh | |
#!/bin/bash | |
if [[ "$#" -ne 1 ]]; then | |
echo "Usage: repl.sh 'script to be run'" | |
exit 1 | |
fi | |
screen -AdmS 'main' "$1" |
(defun m44*m44 (m1 m2) | |
;; Unrolled, because why the hell not? | |
;; TODO maybe unroll dot-product and matrix-column/matrix-row as well? | |
;; for now let's inline them and hope the compiler is not dumb | |
(make-m44 (⋅ (m44-column m1 0) (m44-row m2 0)) (⋅ (m44-column m1 1) (m44-row m2 1)) (⋅ (m44-column m1 2) (m44-row m2 2)) (⋅ (m44-column m1 3) (m44-row m2 3)) | |
(⋅ (m44-column m1 0) (m44-row m2 0)) (⋅ (m44-column m1 1) (m44-row m2 1)) (⋅ (m44-column m1 2) (m44-row m2 2)) (⋅ (m44-column m1 3) (m44-row m2 3)) | |
(⋅ (m44-column m1 0) (m44-row m2 0)) (⋅ (m44-column m1 1) (m44-row m2 1)) (⋅ (m44-column m1 2) (m44-row m2 2)) (⋅ (m44-column m1 3) (m44-row m2 3)) | |
(⋅ (m44-column m1 0) (m44-row m2 0)) (⋅ (m44-column m1 1) (m44-row m2 1)) (⋅ (m44-column m1 2) (m44-row m2 2)) (⋅ (m44-column m1 3) (m44-row m2 3)))) |
(defun ⋅ (a b) | |
"Compute dot product of two vectors." | |
(assert (= (length a) | |
(length b)) | |
(a b) | |
"Cannot compute a dot product of ~S and ~S - lengths of vectors differ." a b) | |
(reduce #'+ (map 'vector #'* a b))) | |
(defun × (a b) | |
"Compute cross product of two 3D vectors." |
(defpackage :BCM2835 | |
(:use :FFI) | |
(:export :init | |
:close | |
:gpio-fsel | |
:gpio-write | |
:gpio-lev | |
:gpio-set | |
:gpio-clr | |
:delay |
(try-load-and-configure-library | |
'org-install | |
(setq org-hide-leading-stars t) | |
(setq org-pretty-entities t) | |
(setq org-pretty-entities-include-sub-superscripts nil) | |
(setq org-return-follows-link t) | |
(setq org-special-ctrl-a/e t) | |
(setq org-log-done t) |
I hereby claim:
To claim this, I am signing this object: