Skip to content

Instantly share code, notes, and snippets.

View shotarok's full-sized avatar

Shotaro Kohama shotarok

View GitHub Profile
#include <iostream>
#include <cstring>
using namespace std;
const int N = 30;
const int LENGTH = 2*N+1;
const int dx[4] = {1, 0, -1, 0};
const int dy[4] = {0, -1, 0, 1};
@shotarok
shotarok / LCGs.gcc
Last active August 29, 2015 14:04
Arith.gcc
LDC 8 ; now
LDC 3 ; A
LDC 5 ; B
LDC 13 ; M
LDF LCGs
AP 4
LDC 3 ; A
LDC 5 ; B
LDC 13 ; M
LDF LCGs
@shotarok
shotarok / random_walk.gcc
Created July 26, 2014 05:24
RandomWalkAI
LDC 8 ; seed number
LDF 4 ; step function
CONS
RTN
LD 0 0 ; load current AI state
LDC 1664525 ; A for 19
LDC 69069 ; B for 19
LDC 10000003; M for 19
LDF 19
AP 4
@shotarok
shotarok / sample.gcc
Last active August 29, 2015 14:04
SampleAI
LDC 0 ;; initial AI state
LDF 4 ;; Step Function
CONS ;; (init state, step func)
RTN
LDC 0 ;; Current AI state
LDC 1 :: AI direction move {0: up, 1: right, 2: down, 3: left}
CONS ;; (current state, move)
RTN
@shotarok
shotarok / Compiler Output
Last active August 29, 2015 14:04
FickleAI
[info] Running jp.ac.kyotou.kansai.fickleAI
func_entryPoint:
LDC 0
LDC 0
LDC 0
LDC 0
LDF body_entryPoint
TAP 4
body_entryPoint:
LDC 0
#! /usr/bin/env python
# -*- coding:utf-8 -*-
import concurrent.futures
import sys
import subprocess
import time
from collections import defaultdict
from data import sentences
@shotarok
shotarok / fout-quine.rb
Last active November 3, 2015 08:59
Quine of FreakOut Inc Logo
eval$s=
%w(s=%(eval$s =%w(#{$s})*"")
;base36encoded="gz7 v8c1f y6azn
l8vi pq3i129 l1lk yb6dj
3385g 95h mxb cg2f
aabtk tns yp d5a9
rqs1g ov8 dey awff
43r1a n6e0 7joo fgirz1eu3ol09r2a
43rln0 r 3n2rox3 ravoonncbxvwpddgo4 y
3vdmopycm4m1fpwltuir1l 8xk472nv87wg6uw0q
@shotarok
shotarok / fout-quine.pl
Last active November 3, 2015 09:00
Quine shaped FreakOut Inc. logo.
$_=q{"9
zzw9stffwzjrb lzoop5x6l3xj98
rez0uehk014cs4uh72p qdhq6 o039t
pk94 zyj09rr vc4j vl4c2
0dwm4 x8c t9b wbjz
ux6w3 jc4 8t iqqv
l3gpc nd5 6t2 i2nq
xsvcy uu13 td1o 9n11j1654d7u6l6l
n1v539 f 6c7dp7k xpbxlyx7eri3wq1vk9 w
uttvi8j6qw4i68gjmdg5g3 65uw34rcvs3ldt0ue
@shotarok
shotarok / fout-im-mtb.rb
Created November 6, 2015 00:12
Quine (FreakOut -> Intimate Merger -> M.T.Burn)
;;;;;;;;;;;
;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;; ;;;;;;;;; ;;;;;;
;;;;;n=1;eval$s=%w(s=%(#{"; "*81}n =#{n+1
};eval $s=%w(#{ $s})* "");en
coded= ["4K l96c _g`Lv
Cu=@^JU lH> Mp U=?QA
nHn8SB= YkHz Dsk A9GXv
@shotarok
shotarok / seed_of_quine-fout-im-mtb.rb
Created November 6, 2015 00:24
seed of quine (FO -> IM -> MTB)
n=0;eval $s=%w(
s = %(#{";"*76}n=#{(n+1)%3};eval$s=%w(#{$s})*"");
encoded = ["4Kl96c_g`LvCu=@^JUlH>MpU=?QAnHn8SB=YkHzDskA9GXved>ZiNEnqEeEZGJBs5uZ?y@GVGq5tfuQ@AF_APd7IHs1=QlGyCdzk8KnZjIhYxqe3zF3fWX[Dm1bkX:R3eTtK`kF:IM_bUquQQi^vT]wr]adTi9sGH3U:a4wQjGwVIS4lX1Z[:8id_>9qK8_7ThSiafvwK4cyjYrw;E8ytwHKQClRV^U@txJbAS2wmuGxU9[L_ur[9OOB[qlBx=q7t^ENDqbhf1Ew1;<9QBvAX@P^2qa[ZrP_PJUrFvq2=Ibo0qRoMvAvwz[<0JWijeMX_>^NkACxNXnq>POW[mt<^Rb;ffDB<hBFBsQnG^ywgtxj:Et27Yc6ARsG`xEW3LZ2Z4ZNZPgT:4eePj5ckTg7<MmSatc4rPd0B`p4ZB`LRuQDtZm[>7=Sh^zts4NtmRRjK]@Jl5bJ0iCh<rB7AS?]QK<Ic6WBt[HvcI5FfAc", "`TVE?Er6GLiJg=q?gQQu^3Qt<PfR<Qg?lQd9J?swp4y@:<35dDy8Kg3FbGZWsLCI7VvV?EObb1UEjxVkImDa4<vduDxyU>vOL5CCmIno^yPo;jksiiI6F=W?3bewgO>UxhI;kI_BWWeqdpI6ouZCzPJuTqXxE__jg`np3JQ2c`W`P<@MhEL9aKP;T6nR3W4khw7r`wU`;hKK`>pAE^B62F3jGAIKvNvm7[QpJ=WosH`ARbNC^ZWNJq]N9jMiz1`6Q2vBCbC]3UBq19S5Mer5`Sc0BT4UK<9y1QHk3uD471Vzs0z:;qgSpjPHhZyGT:0m?=r<uI6d_;K@N9L<<ZrX;phj[8rHoId9E[4C@ZXGf2?FJIWv?Fa_Sc5ZOI;P6H@dVPneFVg`;C4NQ:l;zq1Ug0IPheQIl5u3dmpCo[3xS2E>L2]2mV;^L<J]uDg:KzuLFcm:fU