異なる 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
最新の画像[もっと見る]
- 算額(その2130) 4時間前
- 算額(その2129) 1日前
- 算額(その2128) 2日前
- 算額(その2127) 2日前
- 算額(その2126) 2日前
- 算額(その2125) 2日前
- 算額(その2124) 2日前
- 算額(その2123) 3日前
- 算額(その2122) 3日前
- 算額(その2120) 5日前
(433:738)[sapply(433:738, function(x) (x%%7==0)&((x-333)%%10*100+(x-333)%/%100+((x-333)%%100)%/%10*10)==(x+261))]