is_odd/is_even
ある数値が奇数か偶数かを調べる関数(……)
numalias isodd_result numalias isodd_num numalias isodd_temp ------ ------ *is_odd getparam i%isodd_result,%isodd_num mov %isodd_temp,%isodd_num/2 mul %isodd_temp,2 mov %%isodd_result,0 notif %isodd_temp = %isodd_num mov %%isodd_result,1 return *is_even getparam i%isodd_result,%isodd_num mov %isodd_temp,%isodd_num/2 mul %isodd_temp,2 mov %%isodd_result,0 if %isodd_temp = %isodd_num mov %%isodd_result,1 return
is_oddが奇数か否かで、奇数だったら1が返ってくる。
is_evenがその逆で、偶数だったら1が返ってくる。
ご自由にお使いください。