裏 RjpWiki

Julia ときどき R, Python によるコンピュータプログラム,コンピュータ・サイエンス,統計学

暗号を解けという問題

2015年04月14日 | ブログラミング

長い文章があって,その後に数字ベクトルが来れば,そのベクトルは一番単純には文章中の文字の位置番号を表しているのだろうと思う罠。

> s = "春は、あけぼの。やうやう白くなりゆく、山ぎは少し明りて、紫だちたる雲のほそくたなびきたる。 夏は、夜。月のころはさらなり、闇もなほ、蛍の多く飛びちがひたる。また、ただ一つ二つなど、ほのかにうち光りて行くも、をかし。雨など降るも、をかし。 秋は、夕暮れ。夕日のさして、山の端いと近うなりたるに、烏の寝どころへ行くとて、三つ四つ、二つ三つなど、飛び急ぐさへあはれなり。まいて、雁などのつらねたるが、いと小さく見ゆるは、いとをかし。日入り果てて、風の音、虫の音(ね)など、はた言ふべきにあらず。 冬は、つとめて。雪の降りたるは言ふべきにもあらず。霜のいと白きも、またさらでも、いと寒きに、火など急ぎおこして、炭持て渡るも、いとつきづきし。昼になりて、ぬるくゆるびもていけば、火桶の火も白き灰がちになりて、わろし。"
> w = unlist(strsplit(s, ""))
> w[c(85,42,241,10,7,104,17,195,37,95,244,235,30,212,197,25,195,137,140,31,94,266,89,33,298,138,107)]
 [1] "つ" "き" "あ" "う" "の" "を" "ゆ" "る" "そ" "う" "。" "た" "だ" "し" "、" "明" "る" "い" "う" "ち" "に" "も" "ど"
[24] "る" "こ" "と" "。"
> w[c(279,202,58,68,37,140,24)]
[1] "ま" "く" "ら" "の" "そ" "う" "し"

コメント    この記事についてブログを書く
  • Twitterでシェアする
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする
goo blogユーザーが出品しています
他の出品作品をマルシェルで見る
« ggplot2(その2) | トップ | 因数分解 »
最新の画像もっと見る

コメントを投稿

ブログ作成者から承認されるまでコメントは反映されません。

ブログラミング」カテゴリの最新記事