UNTIL — 조건이 참일 때까지 반복

UNTIL는 BEGIN...UNTIL 구조에서 x의 모든 비트가 0이면 루프 시작으로 분기하고, 참이면 루프를 종료하는 코어 단어예요.

출처: UNTIL — Forth 2012 Standard

본문

( C: dest -- )

아래 주어진 실행 시점 의미를 현재 정의에 추가하고, 역방향 참조 dest를 해결해요.

( x -- )

x의 모든 비트가 0이면 dest가 지정하는 위치에서 실행을 계속해요. 그렇지 않으면 (참이면) UNTIL 뒤에서 실행을 계속해요.

전형적인 사용:

: X ... BEGIN ... test UNTIL ... ;

T{ : GI4 BEGIN DUP 1+ DUP 5 > UNTIL ; ->  }T
T{ 3 GI4 -> 3 4 5 6 }T
T{ 5 GI4 -> 5 6 }T
T{ 6 GI4 -> 6 7 }T

출처: UNTIL — Forth 2012 Standard