裏 RjpWiki

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

一行野郎

2014年11月17日 | ブログラミング

異なる 3 桁の整数 a, b, cが,以下の条件を満たすとき,a, b, c を求めるワンライナーを書け
   1. aはbより261小さい。
   2. aはcより333大きい。
   3. cはbの100の位の数と一の位の数を入れ替えた数である。
   4. aは7の倍数である。
まあ,結果出力が微妙だけど。
Rscript -e "a = 7*1:(999 %/% 7); c = a - 333; b = a + 261; x = c >= 100 & b <= 999 & c %% 10 == b %/% 100 & b %% 10 == c %/% 100; cbind(a[x], b[x], c[x])"
     [,1] [,2] [,3]
[1,]  490  751  157
[2,]  581  842  248
[3,]  672  933  339

コメント (1)    この記事についてブログを書く
  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする
« A/B テストには気をつけろ | トップ | 一行野郎(2) »
最新の画像もっと見る

1 コメント

コメント日が  古い順  |   新しい順
Unknown (Unknown)
2014-11-17 16:02:49
aを求めるだけなら
(433:738)[sapply(433:738, function(x) (x%%7==0)&((x-333)%%10*100+(x-333)%/%100+((x-333)%%100)%/%10*10)==(x+261))]
返信する

コメントを投稿

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