Skip to content

Instantly share code, notes, and snippets.

View ksomemo's full-sized avatar

ksomemo

18 followers · 1 following
View GitHub Profile
@ksomemo
ksomemo / gist:1929212
Created February 28, 2012 03:37
;; auto-installによってインストールされるEmacs Lispをロードパスに加える
;; デフォルトは ~/.emacs.d/auto-install/
(add-to-list 'load-path "~/.emacs.d/auto-install/")
(require 'auto-install)
;;(setq auto-install-use-wget nil)
(setq auto-install-use-wget t)
;; 起動時にEmacsWikiのページ名を補完候補に加える
(auto-install-update-emacswiki-package-name t)
;; install-elisp.el互換モードにする
@ksomemo
ksomemo / googleMaps.html
Created May 5, 2012 12:25
googleMaps
<!DOCTYPE>
<html lang="ja">
<head>
<meta charset="UTF-8" />
<title>Google Maps</title>
<script type="text/javascript"
src="http://maps.google.com/maps/api/js?sensor=true&language=ja"></script>
<script type="text/javascript" src="http://code.jquery.com/jquery-1.7.2.min.js"></script>
<style type="text/css">
#map {
@ksomemo
ksomemo / CardTest.php
Created June 2, 2012 07:13
カードの振り分けのテスト
<?php
require_once '/tests/Part1/CardManager.php';
class CardTest extends PHPUnit_Framework_TestCase
{
/**
* @dataProvider getDealCard
*/
public function testDeal($deal_num, $card, $expect)
@ksomemo
ksomemo / CardManager.php
Created June 2, 2012 07:15
カードの振り分けの実装
<?php
class CardManager {
/**
*
* @param integer $deal_num
* @param String $card
*
* @return array
@ksomemo
ksomemo / gist:5656015
Created May 27, 2013 09:12
ssh config
Host passAllow
User user_name
HostName host_name
PubkeyAuthentication no
PasswordAuthentication yes # default
Host keyOnly
User user_name
HostName host_name
PubkeyAuthentication yes # default
@ksomemo
ksomemo / zshrc_useful.sh
Created May 28, 2013 08:52 — forked from mollifier/zshrc_useful.sh
# 少し凝った zshrc
########################################
# 環境変数
export LANG=ja_JP.UTF-8
# 色を使用出来るようにする
autoload -Uz colors
colors
@ksomemo
ksomemo / SICP_chapter1.scm
Created May 29, 2013 22:03
SICP chapter1
;; 1.1.2
(define size 2)
(* 5 size)
(define pi 3.14159)
(define radius 10)
(* pi (* radius radius))
@ksomemo
ksomemo / 99_questions_1.hs
Created May 30, 2013 11:56
99_questions No.1
myLast :: [a] -> Maybe a
myLast [] = Nothing
myLast (x:[]) = Just x
myLast (x:xs) = myLast xs
{-
myLast :: [a] -> a
-- myLast [] =
myLast (x:[]) = x
myLast (x:xs) = myLast xs
@ksomemo
ksomemo / 99_questions_2.hs
Created May 30, 2013 11:57
99_questions No.2
myButLast :: [a] -> a
-- myButLast [] =
-- myButLast (x:y:[]) = x
myButLast [x,y] = x
myButLast (_:x:xs) = myButLast (x:xs)
@ksomemo
ksomemo / 99_questions_3.hs
Created June 4, 2013 07:53
99_questions No.3
elementAt :: [a] -> Int -> a
elementAt xs d = xs !! (d - 1)