[日記] 成田山公園フォト

この休みを使って、成田山公園 (成田山新勝寺の隣) に行ってきた。まだ紅葉が少し残っていてまだまだ楽しめた。

[R] abc並べ替えスクリプト

与えられた英文を、各単語に分けてabc順に並べ替えスラッシュで区切る関数を、Rで書いたことがあった。例えば、

this is an example sentence

と入力すると、

an / example / is / sentence / this

と返してくれる。1年くらい前に書いたものがこちら：

	narabe <- function(n){
	rawn <- unlist(strsplit(n, " "))
	numberedn <- rawn[order(rawn)]
	output <- numberedn[1]
	for(i in 2:(length(rawn)-1)){
	output <- paste(output, numberedn[i], sep=" / ")
	}
	return(paste(output, numberedn[length(rawn)], sep=" / "))
	}

view raw narabe.R hosted with ❤ by GitHub

計9行。forが1つ。自分で使う分には一切問題がないし、頑張って書いたのでずっと使っていたのだが、ごちゃごちゃしている。書き直してみる。

	narabe <- function(n){
	d <- unlist(strsplit(n, " "))
	d <- sort(d)
	d <- paste(d, collapse=" / ")
	return(d)
	}

view raw narabe2.R hosted with ❤ by GitHub

計6行。forはないし、見た目もスッキリ。

以前はウンウン唸りながら1~2時間くらいかけて書いたものが、今では3分くらいで書けるように。私はR (を始めプログラミング) の専門的な訓練を受けたことはないが、本やインターネットのおかげで、自分にとって十分役にたつスクリプトが書けるようになってきた。このエントリーも誰かの役に立てば嬉しい。

なお、使い方は：

1. 上のスクリプトをコピーandペースト、そしてエンターキーを押す。
2. narabe("") と入力し (全て半角文字)、ダブルクオーテーションマークの間に変換したい文字列を入力する。エンターキーを押す。
例 narabe("this is an example sentence")
3. 変換された文字列が返ってくる。

1. Copy and Paste, and the Press Enter

2. narabe("")

3. Voilà!

[本] 11月に買った本

11月に買った本。いい本：

• 赤野一郎, 投野由紀夫, 堀正広 (編著) (2014)『英語教師のためのコーパス活用ガイド』 大修館書店
• 水谷信子 (2015) 感じのよい英語 感じのよい日本語 ―日英比較コミュニケーションの文法』 くろしお出版
• 佐藤俊樹 (2011) 社会学の方法―その歴史と構造 (叢書・現代社会学) ミネルヴァ書房
• 野矢茂樹 (2015) 哲学な日々 考えさせない時代に抗して』 講談社