numalias sgn_result numalias sgn_num ------ ------ ;============================== ; sgn ;============================== ;機能：正負を返す。 ;引数：正負を返す数字変数と、演算の対象になる数値 *sgn getparam i%sgn_result,%sgn_num if %sgn_num …

使い古されたネタではあるが。 numalias abs_result numalias abs_num ------ ------ ;============================== ; abs ;============================== ;機能：絶対値を返す。 ;引数：絶対値を返す数字変数と、演算の対象になる数値 *abs getparam i…

Perlだったらなー。swapなんて、 ( $b, $a ) = ( $a, $b );で一撃なのになー。 numalias swap_a numalias swap_b numalias swap_temp numalias swap_first numalias swap_last numalias swap_loop ------ ------ ;============================== ; swap ;==…

id:garugon:20050630#p1 より 図書館が好きで。 「人」が好き。に尽きるかなーとか。 ああなるほど。だったら俺はなれないな。前半にはあてはまるが、後半が駄目だ。 明確な意思を持ち、自分が何を学ぶべきかを知っている人が来て、「かくかくしかじかの本が…

numalias sgn_result numalias sgn_num ------ ------ ;============================== ; sgn ;============================== ;機能：正負を返す。 ;引数：正負を返す数字変数と、演算の対象になる数値 *sgn getparam i%sgn_result,%sgn_num if %sgn_num …

使い古されたネタではあるが。 numalias abs_result numalias abs_num ------ ------ ;============================== ; abs ;============================== ;機能：絶対値を返す。 ;引数：絶対値を返す数字変数と、演算の対象になる数値 *abs getparam i…

Perlだったらなー。swapなんて、 ( $b, $a ) = ( $a, $b );で一撃なのになー。 numalias swap_a numalias swap_b numalias swap_temp numalias swap_first numalias swap_last numalias swap_loop ------ ------ ;============================== ; swap ;==…

id:garugon:20050630#p1 より 図書館が好きで。 「人」が好き。に尽きるかなーとか。 ああなるほど。だったら俺はなれないな。前半にはあてはまるが、後半が駄目だ。 明確な意思を持ち、自分が何を学ぶべきかを知っている人が来て、「かくかくしかじかの本が…

id:garugon:20050630#p1 より 図書館が好きで。 「人」が好き。に尽きるかなーとか。 ああなるほど。だったら俺はなれないな。前半にはあてはまるが、後半が駄目だ。 明確な意思を持ち、自分が何を学ぶべきかを知っている人が来て、「かくかくしかじかの本が…

numalias sgn_result numalias sgn_num ------ ------ ;============================== ; sgn ;============================== ;機能：正負を返す。 ;引数：正負を返す数字変数と、演算の対象になる数値 *sgn getparam i%sgn_result,%sgn_num if %sgn_num …

使い古されたネタではあるが。 numalias abs_result numalias abs_num ------ ------ ;============================== ; abs ;============================== ;機能：絶対値を返す。 ;引数：絶対値を返す数字変数と、演算の対象になる数値 *abs getparam i…

Perlだったらなー。swapなんて、 ( $b, $a ) = ( $a, $b );で一撃なのになー。 numalias swap_a numalias swap_b numalias swap_temp numalias swap_first numalias swap_last numalias swap_loop ------ ------ ;============================== ; swap ;==…