Skip to content

Instantly share code, notes, and snippets.

@krtx
krtx / mode-line.el
Created November 3, 2012 20:22
emacs mode-line
;;; red
;; (defconst color1 "#FF6699")
;; (defconst color3 "#CDC0B0")
;; (defconst color2 "#FF0066")
;; (defconst color4 "#CDC0B0")
;;; green
;; (defconst color1 "#66FF99")
;; (defconst color3 "#E1FFCC") ;; active mode-line
;; (defconst color2 "#00FF66")
@krtx
krtx / langrid.rb
Created November 4, 2012 20:58
langrid scraper
# coding: utf-8
# 日本語でやった人の日本語のデータと、
# 英語でやった人の英語のデータを取得する
# データは打ち込んだ文(表示されてるやつ)と
# 折り返し翻訳されたものの2つ
# language = 'ja'
# $ ruby langrid.rb > ja
# language = 'en'
@krtx
krtx / langrid2.rb
Created November 4, 2012 22:08
langrid scraper for back-translation
# coding: utf-8
require 'watir'
require 'pp'
# !!! EDIT HERE !!!
userid = ''
password = ''
language = 'ja' # 'ja' or 'en'
topic_id =
@krtx
krtx / le4a_example.rb
Created November 9, 2012 08:03
le4a-typeinfernantoka
# coding: utf-8
require 'mechanize'
require 'pp'
agent = Mechanize.new
page = agent.get('http://www.fos.kuis.kyoto-u.ac.jp/~t-sekiym/classes/isle4/testcases.html')
number = 1
@krtx
krtx / svm_plot.sh
Last active October 13, 2015 23:38
usage: ./svm_plot.sh sample_data graph_data
#!/bin/sh
vector=$1
border=$2
/usr/bin/gnuplot <<EOF
ismin(x) = (x<min)?min=x:0
ismax(x) = (x>max)?max=x:0
grabx(x)=(x<x0)?x0=x:(x>x1)?x1=x:0
291 126 -1
269 60 1
293 291 1
265 195 1
380 133 -1
294 211 1
170 156 -1
180 249 1
239 201 1
293 164 -1
@krtx
krtx / group.rb
Last active December 16, 2015 09:38
the ruby program which calculates conjugacy classes of symmetry groups and alternate groups
require 'pp'
require 'set'
class Array
def rotmin
self.rotate(self.index(self.min))
end
end
class Permutation < Array
@krtx
krtx / group.lisp
Last active December 16, 2015 11:28
the *lisp* program which calculates conjugacy classes of symmetric groups and alternating groups
;; '((1 . 2) (2 . 3) (3 . 1))
;; '((1 . 4) (2 . 3) (4 . 1) (3 . 2))
;; '((5 . 1) (4 . 2) (2 . 5) (3 . 4) (1 . 3))
(defun mapping (item g)
(cdr (assoc item g)))
(defun normalize (g)
(sort g #'(lambda (x y) (< (car x) (car y)))))
@krtx
krtx / sc.rb
Created June 3, 2013 17:39
mp3のタグを書き換えるスクリプト ruby 1.9.2
require 'mp3info'
dir = '/my/music/library/'
Dir::glob(dir + '*.mp3').each {|f|
Mp3Info.open(f) do |mp3|
t = mp3.tag.title
title = t.slice(t.rindex('/') + 2, t.length)
artist = t.slice(0, t.rindex('/') - 1)
if title.index(' - ')
@krtx
krtx / parse.rb
Created June 10, 2013 12:04
aaaaaaaaaaaaaaaaaaaaaaaaaaaa
require 'pp'
str = 'a+b*c*(d+e)+f+g'
$idx = 0
def term(str)
ops = []
while $idx < str.length
if str[$idx] == '('