[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à!