一行野郎（2）

180 以上 189 以下の 10 個の整数の中から異なる 3 個 a, b, c を選び，和が 560 になる組み合わせを全て求めるワンライナーを書け。

Rscript -e "n = 180:189; a = 179+which(outer(outer(n, n, '+'), n, '+') == 560, arr.ind=TRUE); b = a[,1] < a[,2] & a[,2] < a[,3]; a[b,]"
     dim1 dim2 dim3
[1,]  185  187  188
[2,]  185  186  189
[3,]  184  187  189
[4,]  183  188  189

以下の方が，短いか。

Rscript -e "a = expand.grid(180:189, 180:189, 180:189); a[rowSums(a)==560 & a[,1] < a[,2] & a[,2] < a[,3],]"
    Var1 Var2 Var3
876  185  187  188
966  185  186  189
975  184  187  189
984  183  188  189