Skip to content

Instantly share code, notes, and snippets.

View guicho271828's full-sized avatar
🤣
Lemonodor fame is but a hack away!

Masataro Asai guicho271828

🤣
Lemonodor fame is but a hack away!
323 followers · 86 following
View GitHub Profile
@guicho271828
guicho271828 / .gitignore
Last active April 19, 2024 00:59 — forked from kd9f9/random_generators_speed.cpp
random number generator speed benchmark for https://cppbenchmarks.wordpress.com/2020/10/11/speed-comparison-of-random-number-generators/
*~
random_generators_speed_*
@guicho271828
guicho271828 / result.lisp
Created December 5, 2019 03:05
catch and throw usage in quicklisp
3bgl-shader/walker.lisp:(defwalker cl-walker (catch tag &rest forms)
3bgl-shader/walker.lisp: `(catch ,(@ tag) ,@(@@ forms)))
3bgl-shader/walker.lisp:(defwalker cl-walker (throw tag result-form)
3bgl-shader/walker.lisp: `(throw ,(@ tag) ,(@ result-form)))
3bz/deflate.lisp: (catch :exit-loop
3bz/deflate.lisp: (throw :exit-loop :eoi)))
3bz/deflate.lisp: (throw :exit-loop :eoo))))
agnostic-lizard/debugger-prototype.lisp: (catch 'debugger-hook-result
agnostic-lizard/examples.lisp: (throw :eval-check-failed "Form expansion changed behaviour")))))
agnostic-lizard/examples.lisp: (throw :lexenv-check-fail "Form expansion changed behaviour"))))
@guicho271828
guicho271828 / characters.lisp
Last active September 19, 2024 04:09
SBCL 1.5.9 jump-table compilation for `case` and nested `if` sequence
;; This also gets converted into a jump table
(defun fn (x)
(if (eql x #\a)
:a
(if (eql x #\b)
:b
(if (eql x #\c)
:c
(if (eql x #\d)
:d)))))
@guicho271828
guicho271828 / domain.pddl
Created August 15, 2019 21:59
Blocksworld
;; -*- mode : lisp -*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; 4 Op-blocks world
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (domain BLOCKS)
(:requirements :strips)
(:predicates (on ?x ?y)
(ontable ?x)
(clear ?x)
@guicho271828
guicho271828 / NCEC.org
Last active June 23, 2019 01:15
ロードスター情報

総額36万ぐらいを見ています ショック オーリンズそのままの場合+10万

(別件: 37型プラズマテレビ 無料で譲ります。詳細は↓)

NCEC H17 (2005年) モデル (マイチェン前)

買ったときの値段値段
@guicho271828
guicho271828 / configure log
Last active May 3, 2019 12:59
mkcl error log
./configure
Switching to directory `/home/guicho/repos/c-or-cpp/mkcl/src' to continue configuration.
checking build system type... x86_64-unknown-linux-gnu
checking host system type... x86_64-unknown-linux-gnu
checking for gcc... gcc
checking whether the C compiler works... yes
checking for C compiler default output file name... a.out
checking for suffix of executables...
checking whether we are cross compiling... no
checking for suffix of object files... o
@guicho271828
guicho271828 / abcl
Created April 22, 2019 01:26
Upgraded element type in CL implementations
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 1)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 2)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 3)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 4)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 5)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 6)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 7)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 8)) -> (UNSIGNED-BYTE 8)
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 9)) -> T
; (UPGRADED-ARRAY-ELEMENT-TYPE TYPE) -> (UPGRADED-ARRAY-ELEMENT-TYPE (UNSIGNED-BYTE 10)) -> T
@guicho271828
guicho271828 / demo1.ros
Created January 19, 2019 03:22
demo1
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@" 2>/dev/null
|#
; Refer to the demostuff file for definitions and descriptions.
(load "demostuff")
(defun main (&rest argv)
(declare (ignorable argv))
@guicho271828
guicho271828 / ecuflash-romraider.ros
Last active November 6, 2021 05:12
Converter for xml ecu definition files from EcuFlash to RomRaider, requirement: Roswell https://github.com/roswell/roswell/wiki
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
(ros:ensure-asdf)
#+quicklisp (ql:quickload '(:plump :uiop :trivia :clss :iterate :alexandria) :silent t)
)
@guicho271828
guicho271828 / case.lisp
Last active May 5, 2018 18:51
case -> jump table (see fcase8, fcase9)
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(progn ;;init forms
(ros:ensure-asdf)
#+quicklisp (ql:quickload '(:alexandria :trivia :iterate) :silent t))
(defpackage :ros.script.case.3724474528