Skip to content

Instantly share code, notes, and snippets.

Avatar

Yuya Kono takoeight0821

View GitHub Profile
@takoeight0821
takoeight0821 / make.log
Created Aug 8, 2015
ros install sbcl/1.2.14のmake.log一部抜粋
View make.log
; SYS:CONTRIB;SB-POSIX;POSIX-TESTS-TMP.FASL.NEWEST written
; compilation finished in 0:00:00.019
Doing 70 pending tests of 70 tests total.
SB-POSIX-TESTS::CHDIR.1 SB-POSIX-TESTS::CHDIR.2 SB-POSIX-TESTS::CHDIR.3
SB-POSIX-TESTS::CHDIR.4 SB-POSIX-TESTS::CHDIR.5 SB-POSIX-TESTS::CHDIR.6
SB-POSIX-TESTS::CHDIR.7 SB-POSIX-TESTS::CHDIR.8 SB-POSIX-TESTS::CHDIR.ERROR.1
SB-POSIX-TESTS::CHDIR.ERROR.2 SB-POSIX-TESTS::MKDIR.1 SB-POSIX-TESTS::MKDIR.2
SB-POSIX-TESTS::MKDIR.ERROR.1 SB-POSIX-TESTS::MKDIR.ERROR.2
SB-POSIX-TESTS::MKDIR.ERROR.3 SB-POSIX-TESTS::RMDIR.1 SB-POSIX-TESTS::RMDIR.2
SB-POSIX-TESTS::RMDIR.ERROR.1 SB-POSIX-TESTS::RMDIR.ERROR.2
@takoeight0821
takoeight0821 / lifegame.ros
Last active Nov 15, 2015
./lifegame.ros *width* *height* *wait-time*
View lifegame.ros
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
(defparameter *width* 0)
(defparameter *height* 0)
(defun neighbors (pos)
(let ((x (car pos))
@takoeight0821
takoeight0821 / lisp.ros
Created Dec 5, 2015
ちょっとCommon Lispをいじりたい時に
View lisp.ros
#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros -Q -- $0 "$@"
|#
#|
$ ros build lisp.ros
$ ./lisp hoge
|#
@takoeight0821
takoeight0821 / Main.cpp
Last active Dec 24, 2015
Siv3Dでダイバージェンスメーターのスケッチ
View Main.cpp
#include <Siv3D.hpp>
double world_line = 0.0;
double readingSteiner() {
// 1%の確立で世界線が大きく変動する。
if (RandomBool(0.01))
{
if (RandomBool(0.5)) // 減るか増えるかは半分半分
{
++world_line;
View rpn.lisp
(defparameter *stack* nil)
(defun push-stack (val)
(push val *stack*))
(defun pop-stack ()
(pop *stack*))
(defparameter *defined* nil)
(defun definedp (name)
@takoeight0821
takoeight0821 / lhtrpg.lisp
Last active Jun 25, 2016
lhtrpgをCommon Lispでいじる
View lhtrpg.lisp
(mapc #'ql:quickload
(list :drakma :jonathan))
(setq drakma:*drakma-default-external-format* :utf-8)
(pushnew '("application" . "json") drakma:*text-content-types* :test #'equal)
(defun dl-lhz (label)
(jonathan:parse (drakma:http-request (format nil "http://lhrpg.com/lhz/api/~a.json" label)) :as :hash-table))
(defparameter *skills* (dl-lhz "skills"))
(defparameter *items* (dl-lhz "items"))
@takoeight0821
takoeight0821 / interp.lisp
Created Aug 6, 2016
Mini Lisp Interpreter 0.0.1
View interp.lisp
(ql:quickload :alexandria)
(defparameter *globol-env* (make-hash-table))
(defun bindp (expr env)
(second (multiple-value-list (gethash expr env))))
(defun get-env (expr env)
(gethash expr env))
(defun set-env (var val env)
(setf (gethash var env) val))
@takoeight0821
takoeight0821 / map_func.c
Last active Oct 19, 2016
C言語で多相もどきとmap
View map_func.c
#include <stdio.h>
#define map(TYPE, SOURCE, RESULT, FUNC)\
TYPE RESULT[sizeof(SOURCE) / sizeof(SOURCE[0])] = {0};\
for (int i = 0; i < (sizeof(SOURCE) / sizeof(SOURCE[0])); i++) {\
RESULT[i] = FUNC(SOURCE[i]);\
}
int square(int n) {
return n * n;
@takoeight0821
takoeight0821 / dual_number.ex
Created Oct 25, 2016
Dual Number on Elixir
View dual_number.ex
import Kernel, except: [+: 1, +: 2, -: 1, -: 2, *: 2, /: 2]
defprotocol Arithmetic do
def left + right
def left - right
def left * right
def left / right
def +value
def -value
end
@takoeight0821
takoeight0821 / map.cc
Last active Nov 12, 2016
Map function on C++
View map.cc
#include <algorithm>
#include <iostream>
#include <vector>
#include <string>
#include <iterator>
template <class T, class F>
decltype(auto) map(const std::vector<T> a, const F fn) {
std::vector<decltype( fn(a[0]) )> result = {};
std::transform(a.cbegin(), a.cend(), std::back_inserter(result), fn);