アールメカブ

• 追加された行はこの色です。
• 削除された行はこの色です。
• R_concordancer へ行く。
• R_concordancer の差分を削除

Rでコンコーダンサー (とか言ってみる)

 library(languageR)
 
 place <- which(alice == "place")
 
 for(i in place){
   x <- i - 2; y <- i + 2
   if(x< 0) x <- 0
   if(y > length(alice)) y <- length(alice)
 #  cat(alice[x:y],"\n")
   for(z in x:y){
    cat(sprintf("%10s", alice[z]))
 #    if(z == y){
 #      cat("\n")
 #    }
   }
   cat("\n")
 }

        in     bill's      place        for          a
        an       open      place       with          a
        at        the      place      where         it
      move        one      place         on         he
       the dormouse's      place        and      alice
      took        the      place         of        the
       the      whole      place     around        her
      take        the      place         of        the

# 実際の出力表示は揃っているんです．