異なる 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
最新の画像[もっと見る]
- 算額(その1389) 3時間前
- 算額(その1387) 1日前
- 算額(その1384) 2日前
- 算額(その1383) 2日前
- 算額(その1382) 3日前
- 算額(その1380) 3日前
- 算額(その1379) 4日前
- 算額(その1378) 4日前
- 算額(その1377) 4日前
- 算額(その1376) 4日前
(433:738)[sapply(433:738, function(x) (x%%7==0)&((x-333)%%10*100+(x-333)%/%100+((x-333)%%100)%/%10*10)==(x+261))]