Skip to content

Instantly share code, notes, and snippets.

Kristian Lein-Mathisen kristianlm

  • Adellica
  • Norway
Block or report user

Report or block kristianlm

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View chicken-yajl.base64.zstd.tar.git
This file has been truncated, but you can view the full file.
KLUv/QSIxOILrBEVLmdpdC8AMDc1NTE3NTAAMTM2MTAxNDY3NjQAMDEwMDU3ACA1AHVzdGFyICAA
a2xtYnJhbmNoZXMvMDU0MjYyNTYxNjQ1aG9vazIwM2FwcGx5cGF0Y2gtbXNnLnNhbXBsZTczNjUz
IDAjIS9iaW4vc2gKIwojIEFuIGV4ICBzY3JpcHQgdG8gY2sgdGhlIGNvbW1pdCBsb2cgbWVzc2Fn
ZSB0YWtlbiBieSBmcm9tIGEtbWFpbC5UaGhvdWxkd2l0aCBub24temVybyB0dXMgYWZ0ZXIgaXNz
dWluZ3JvcHJpYXRlaWYgYW50c29wLiBsbG93ZWRlZGZpbG5hYmxlaXMsIHJtIiIuCgouIC1zaC1z
ZXR1cAo9IiQodi1wYXJzZSAtLSkiCnRlc3QgLXggIiQiICYmZWMkezErIiRAIn0KOgoxNjQ0NjIu
Q2J5ICIib25lIGFyZ3VtZW50LG9mdGhhdCBoYXNVbmJlYWRkIGEgU2lnbmVkLW9mZi1saW5Eb2kg
YmFkIGlkZWFnZW5lcmFsLCBidXByZWUtbW9yZSB0U09CPXZHSVRfQVVUSE9SX0lERU5UIHwgcy1u
ICdzL15cKC4qPlwpLiokLzogXDEvcCcpZyAtcXMgIl4kIjEiIHx8IGVjaD4+CmMgZHVwbGllcyIi
View nurse-shift-schedule.scm
;;(define cal (with-input-from-file "v2020.scm" read))
;;2020
(define cal
`(
;;w mtotfls
( 5 dfaadff)
(23 dfnnfff)
))
(import chicken.io
@kristianlm
kristianlm / gdigrab.c
Last active Aug 15, 2018
Screen Capture of your Windows10 machine as a http://<ip>:8088/image.png
View gdigrab.c
#include <windows.h>
#include <stdio.h>
int screen_w() {
return GetSystemMetrics(SM_CXVIRTUALSCREEN)
- GetSystemMetrics(SM_XVIRTUALSCREEN);
}
int screen_h() {
View server-demo.scm
(use minissh nrepl)
;; the default /dev/random causes hangs
(use tweetnacl) (current-entropy-port (open-input-file "/dev/urandom"))
;; the secret key would normally be kept safe
(define host-pk
"AAAAC3NzaC1lZDI1NTE5AAAAIIfd+rbtTF2hJJbnnbQxtp2UVrUWkQtnsT8CL9iLpZBZ")
(define host-sk
#${ba72291c15494ee02003b3c0bb0f8507a6a803850aa811d015b141a193e2447d
@kristianlm
kristianlm / generators.scm
Last active Sep 29, 2017
a sample generator API for Scheme, implemented using continuations
View generators.scm
;;; generator function example, inspired by this post:
;;; http://matt.might.net/articles/programming-with-continuations--exceptions-backtracking-search-threads-generators-coroutines/
;;;
;;; Kristian Lein-Mathisen 2017
(import (scheme small))
; current-continuation : -> continuation
(define (current-continuation)
(call-with-current-continuation
View freeimage-show-in-terminal.c
// show an image in the terminal using ascii colors
// demonstrates raw pixel access
// (only works on certain image file types, though)
#include <stdio.h>
#include <FreeImage.h>
int meta(FIBITMAP *dib) {
FITAG *tag = NULL;
FIMETADATA *mdhandle = NULL;
mdhandle = FreeImage_FindFirstMetadata(FIMD_EXIF_MAIN, dib, &tag);
View alst.scm
;; a nicer alist api
(define (aref alst key #!optional (missing (lambda () #f)) (= equal?))
(let loop ((alst alst))
(if (pair? alst)
(if (= (caar alst) key) (cdar alst) (loop (cdr alst)))
(if (procedure? missing) (missing) missing))))
(define (adel alst key #!optional (= equal?))
(alist-delete key alst =))
View android-chicken-template-issue-2.sh
[u2@user1-pc chicken-android-template-master]$ export PATH=$PATH:/home/u2/android/android-ndk-r11c:/home/u2/android/android-sdk-linux/platform-tools:
[u2@user1-pc chicken-android-template-master]$ export ANDROID_HOME=/home/u2/android/android-sdk-linux
[u2@user1-pc chicken-android-template-master]$ make
Warning: excluded identifier doesn't exist in module chicken: define-macro
make -C jni/chicken # should build the cross-chicken
make[1]: Entering directory '/home/u2/Desktop/chicken-android-template-master/jni/chicken'
Warning: excluded identifier doesn't exist in module chicken: define-macro
echo /home/u2/Desktop/chicken-android-template-master/jni/chicken/chicken-core/
View grid-module.scm
(module grid *
(import chicken scheme ports)
(include "grid.scm"))
You can’t perform that action at this time.