Skip to content

Instantly share code, notes, and snippets.

View elderica's full-sized avatar
🚞
I'm enjoing with trains and computers.

elderica

🚞
I'm enjoing with trains and computers.
View GitHub Profile
@lukegb
lukegb / vvvvvv_music_unpacker.py
Created August 24, 2011 21:15
Unpack music from VVVVVV's music file!
f = open("vvvvvvmusic.vvv", 'rb')
q = f.read()
FILE_NAMES = ['0levelcomplete.ogg','1pushingonwards.ogg','2positiveforce.ogg','3potentialforanything.ogg','4passionforexploring.ogg','5intermission.ogg','6presentingvvvvvv.ogg','7gamecomplete.ogg','8predestinedfate.ogg','9positiveforcereversed.ogg','10popularpotpourri.ogg','11pipedream.ogg','12pressurecooker.ogg','13pacedenergy.ogg','14piercingthesky.ogg']
startAt = endAt = -1
musStartAt = musEndAt = -1
currentMus = 0
while True:
oldStartAt = startAt
@sunaot
sunaot / coding_guideline.md
Created November 9, 2011 02:11
コーディングガイドライン

コーディング指針

基本方針

こんなコードはよいコード

  • 読みやすいことはよいことだ
    • 見た目が単純だと読みやすい
    • 皆がよく知っている構成は読みやすい (標準に従う。すでに知っているもの (Unix のコマンドとか) に従う。すでにあるものに従う)
  • 書かないことはよいことだ
import qualified VM as V
import qualified Text.Parsec as P
import Control.Applicative ((<|>), (<$>))
import qualified Control.Monad.State as S
import qualified Data.Map as M
import Data.Maybe (fromJust)
data Intermediate = Comment String
| Inst V.Instruction
| Paramdef String
@mahata
mahata / php_bot.php
Created January 23, 2012 00:31
PHP Bot
<?php
$input = json_decode(file_get_contents("php://input"), true);
$source = $input["events"][0]["message"]["text"];
define("PHP_SIGN", "<?");
define("LLEVAL_ENDPOINT", "http://api.dan.co.jp/lleval.cgi");
if (0 === strpos($source, PHP_SIGN)) {
echo prep($source);
import qualified Control.Monad.State as S
import Control.Applicative ((<$>), (<*>))
import Data.Maybe (fromMaybe)
import qualified Data.Map as M
import Control.Monad (unless)
data BF = Token Char | Loop [BF] deriving Show
type Tape = M.Map Int Char
type Env = (Int, Tape)
(define (while1 cond body)
(let ((c (call/cc (lambda (c) c))))
(if (cond)
(begin
(body)
(c c)))))
(define i 0)
(while1 (lambda () (< i 10))
(lambda ()
@fumieval
fumieval / gist:2793825
Created May 26, 2012 12:47
The essence of Lazy Z compiler
data ExprP = Var String | Apply ExprP ExprP | Lambda String ExprP -- lambda calculus expression
data Expr = I | K | S | Expr :$ Expr | Free String -- combinatory expression
compile :: ExprP -> Expr
compile (Apply f x) = compile f :$ compile x
compile (Lambda p e) = bindee p $ compile e
compile (Var i) = Free i
bindee :: String -> Expr -> Expr
@j5ik2o
j5ik2o / gist:2970973
Last active June 6, 2024 14:24
ペアプロの心得

ペアプロの心得

休憩をとる

1.定期的に休憩をとっていますか? ペアプログラミングは、精神的な体力を消耗します。定期的に休憩をとってリフレッシュすることがとても大切です。

謙虚になる

2.「色々な実装方針がある」という認識がありますか?

「あるプログラミング言語を一通り触る」という目標を達成するのに必要な課題の集合はなにか?
"Hellow World"
まずはこれ
標準出力、実行環境
"fizzbuzz"
if文, mod
@zziuni
zziuni / stuns
Created September 18, 2012 08:05
STUN server list
# source : http://code.google.com/p/natvpn/source/browse/trunk/stun_server_list
# A list of available STUN server.
stun.l.google.com:19302
stun1.l.google.com:19302
stun2.l.google.com:19302
stun3.l.google.com:19302
stun4.l.google.com:19302
stun01.sipphone.com
stun.ekiga.net