Skip to content

Instantly share code, notes, and snippets.

@susisu
susisu / js.md
Created November 12, 2014 14:49

JS はブラウザ山に行かれた。 朝早くまた <script> にはいられると、人々が皆みもとに集まってきたので、JS はすわって彼らを教えておられた。 すると、律法学者たちやパーサーたちが、テストをしている時につかまえられたバグをひっぱってきて、中に立たせた上、JS に言った、 「先生、このバグはテストの場でつかまえられました。xxx は律法の中で、こういうバグを石で打ち殺せと命じましたが、あなたはどう思いますか」。 彼らがそう言ったのは、JS をためして、修正する口実を得るためであった。 しかし、JS は身をかがめて、指で地面に何か書いておられた。 彼らが問い続けるので、JS は身を起して彼らに言われた、「あなたがたの中で次のスクリプトを修正できる者が、まずこのバグに石を投げつけるがよい」。 そしてまた身をかがめて、地面に物を書きつづけられた。

var f = function (a) { return a.toString() }
@VoQn
VoQn / 呪い.hs
Last active August 29, 2015 14:05
「人を呪えば穴ふたつ」の論理を Haskell で実装したら居るはずのない死者が増え続けていく結果になった
module Main where
type People = Int -- 人間
type Grave = (Int, Int) -- 墓穴
呪う :: (People, People, Grave) -> (People, People, Grave)
呪う (0, 0, n) = (0, 0, n) -- 人間がいない
呪う (0, 1, (i, j)) = (0, 0, (i + 1, j + 1)) -- 死んでいくのみ
anonymous
anonymous / emacs-inline.patch
Created December 27, 2013 04:23
Emacs.appでインラインパッチを当てた時にdistnotedが暴走しなくなる。
diff -r -N -p -x '*.elc' ../emacs-24.3.org/lisp/term/common-win.el lisp/term/common-win.el
*** ../emacs-24.3.org/lisp/term/common-win.el 2013-01-02 05:37:17.000000000 +0900
--- lisp/term/common-win.el 2013-04-13 21:49:53.000000000 +0900
*************** is not used)."
*** 127,132 ****
--- 127,133 ----
(cons (logior (lsh 0 16) 12) 'ns-new-frame)
(cons (logior (lsh 0 16) 13) 'ns-toggle-toolbar)
(cons (logior (lsh 0 16) 14) 'ns-show-prefs)
+ (cons (logior (lsh 0 16) 15) 'mac-change-input-method)
@jaspervdj
jaspervdj / client.hs
Created October 28, 2013 15:05
Haskel WebSockets client using SSL
--------------------------------------------------------------------------------
{-# LANGUAGE OverloadedStrings #-}
module Main
( main
) where
--------------------------------------------------------------------------------
import Control.Concurrent (forkIO)
import Control.Monad (forever, unless)
\documentclass[a4paper]{jsarticle}
\newcount\xxCntA
\newcount\xxCntB
\newcount\xxCntC
%% 例のMJDなアレ
\def\calcJulian#1#2#3#4{%
\xxCntA=#2\relax \xxCntB=#3\relax
\ifnum\xxCntA<1 \xxCntA=1 \fi
\ifnum\xxCntB<1 \xxCntB=1 \fi
\ifnum\xxCntB<3 \advance\xxCntB12 \advance\xxCntA-1 \fi
@kazu-yamamoto
kazu-yamamoto / gist:5218431
Last active July 22, 2022 13:44
Purely functional Dijkstra algorithm using priority search queue to find shortest paths
-- % cabal install PSQueue
-- % ghci Dijkstra.hs
-- > dijkstra sample A
-- [(A,0,A),(D,4,A),(E,7,D),(C,8,E),(B,9,E)]
module Dijkstra where
import Control.Applicative hiding (empty)
import Data.List (unfoldr)
import Data.Maybe (fromJust)
@mitaki28
mitaki28 / inc_dec.py
Created October 24, 2012 06:44
Support Increment and Decrement on Python
# ~*~ coding:utf-8 ~*~
"""
=============================================
Support Increment and Decrement on Python
=============================================
>>> import inc_dec
>>> i = int(1)
>>> ++i
>>> print i
@matope
matope / NoSQLデータモデリング技法.markdown
Created April 16, 2012 03:35
NoSQLデータモデリング技法

#NoSQLデータモデリング技法

原文:NoSQL Data Modeling Techniques « Highly Scalable Blog

I translated this article for study. contact matope[dot]ono[gmail] if any problem.

NoSQLデータベースはスケーラビリティ、パフォーマンス、一貫性といった様々な非機能要件から比較される。NoSQLのこの側面は実践と理論の両面からよく研究されている。ある種の非機能特性はNoSQLを利用する主な動機であり、NoSQLシステムによく適用されるCAP定理がそうであるように分散システムの基本的原則だからだ。一方で、NoSQLデータモデリングはあまり研究されておらず、リレーショナルデータベースに見られるようなシステマティックな理論に欠けている。本稿で、私はデータモデリングの視点からのNoSQLシステムファミリーの短い比較といくつかの共通するモデリングテクニックの要約を解説したい。

本稿をレビューして文法を清書してくれたDaniel Kirkdorfferに感謝したいと思う