7로 나눌 수있는 숫자를 인쇄하는 방법

Question

x가 임의의 수로 나눌 수 있는지 확인할 수있는 함수가 있습니까? 나는 정수가 1 : 100에 이르는 반복 루프를 작성해야하고 함수가 그 범위에서 7로 나눌 수있는 모든 수를 쓰는 경우에도 사용할 필요가있다. 는 여기에 지금까지 무엇을 가지고 있습니다 : 그것은 단지 내가 필요의 첫 번째 부분을 인쇄

x <- 1 
repeat { 
    print(x) 
    x = x+1 
    if (x > 100) { 
     break 
    } 
} 

.

Answer 1

이 모든 것을 수행 할 필요는 없습니다. 모듈러스 연산자 %%과 R의 벡터화의 아름다움을 사용하십시오.

which(1:100 %% 7 == 0) 
# [1] 7 14 21 28 35 42 49 56 63 70 77 84 91 98 

아니면 코드 골프를하는 경우, 심지어 짧게 ...

which(!1:100 %% 7) 
# [1] 7 14 21 28 35 42 49 56 63 70 77 84 91 98