Skip to content

Instantly share code, notes, and snippets.

@ksomemo
ksomemo / tortoiseProcUpdate.bat
Created June 24, 2013 07:39
TortoiseSVNでUpdate後に、ディレクトリの調整
@ECHO OFF
set baseDir="C:\baseDir"
echo %baseDir%
TortoiseProc /command:update /path:%baseDir%
set RESULT=%ERRORLEVEL%
@ksomemo
ksomemo / sum_from_num_text.sh
Last active August 11, 2017 05:11
1行に数値のみを記載されたテキストの合計値を出力する
#!/bin/sh
sum=0
while read line
do
sum=`expr $sum + $line`
done < num.txt
@ksomemo
ksomemo / ajaxPolling.js
Created June 15, 2013 07:08
jQueryのajaxによるポーリング
var totalCount = 0;
var interval = 30000;
var delay = 3500;
var eachInterval = 1500;
function ajaxPolling(){
$.ajax({
url: "target url"
success:function(data){
var eachCount = 0;
@ksomemo
ksomemo / lint_php_files_with_xargs.sh
Created June 11, 2013 05:24
lint php files with xargs (parallel)
find dir -name '*.php' -print0 | xargs -0 -n1 -P8 php -l
#!/bin/sh
FILES=`find $1 -name \*.php`
for file in $FILES
do
php -l $file
done
@ksomemo
ksomemo / fold_length.hs
Last active December 18, 2015 01:39
foldによるリストの長さを求めるためのメモ
foldr (+) 4 [1, 2, 3] -- 1 + (2 + (3 + 4)) == 10
foldl (+) 1 [2, 3, 4] -- ((1 + 2) + 3) + 4 == 10
1 + (2 + (3 + 4))
(+) 1 (2 + (3 + 4))
(+) 1 ((+) 2 ((+) 3 4))
((1 + 2) + 3) + 4
(+) ((1 + 2) + 3) 4
@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)
@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_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 / 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))