Leap Year Challenge 🙜 January 22, 2022 : leap? ( n -- f ) 4 /mod 25 /mod 4 mod 0= swap 0<> or swap 0= and ; : leap? ( n -- f ) 4 /mod 25 /mod 4 mod 0= or 0<> swap 0= and ; : leap? ( n -- f ) 4 /mod 25 /mod 4 mod 0= or swap 0= and ; variable prior : numeral ( n ) create , does> @ prior @ over < if prior @ 2* - then dup prior ! + ; 1 numeral I 5 numeral V 10 numeral X 50 numeral L 100 numeral C 500 numeral D 1000 numeral M : digit ( a ) 1 find-name name>int execute ; : no 0 prior ! 0 bl parse 0 do dup >r digit r> 1+ loop drop ; : yr no ; QUESTIONS? ⚘ Thank you!