Skip to content

Instantly share code, notes, and snippets.

Yuya Kono takoeight0821

Block or report user

Report or block takoeight0821

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
@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);
You can’t perform that action at this time.