高校数学の質問スレPart405

>>895
-2,-1,0,1 でやってみると成立しないよ。

手計算めんどうだから、プログラムにさせると

> combn(c(-2,-1,0,1),2)
[,1] [,2] [,3] [,4] [,5] [,6]
[1,] -2 -2 -2 -1 -1 0
[2,] -1 0 1 0 1 1
> f <- function(ab){
+ a=ab[1] ; b=ab[2]
+ abs(a*b) > abs(a-b)
+ }
> combn(c(-2,-1,0,1),2,f)
[1] TRUE FALSE FALSE FALSE FALSE FALSE