23/06/23 20:44:44.45 JLJbOh/A.net
order関数の復習に最適だな。
n=0:9
m=n[order(sin(n))]
for(i in 1:10){
if(i<10) cat(paste0('sin(',m[i],') < '))
else cat(paste0('sin(',m[i],')\n'))
}
sin(5) < sin(4) < sin(6) < sin(0) < sin(3) < sin(9) < sin(7) < sin(1) < sin(2) < sin(8)