#多数桁と一桁の掛け算 GF2mベクターを返す
gf2m.mul <- function(nums, num){
	#引数 nums はGF2mべクタとする。numsのひとつづつにnumを乗算する。

	answer <- vector()
	for( i in 1: length(nums) ){
		n <- nums[i]
		answer <- c( answer, gf2m.mul.sub(n,num) )
	}
	return(answer)
}

#一桁の掛け算
gf2m.mul.sub <- function(num1, num2){
	if( num1==0 || num2==0 )	return(0)	#どっちかがゼロ
	return( GF2mInt[(GF2mLog[num1+1] + GF2mLog[num2+1]) %% GFn +2] )
}

#一桁の割り算
gf2m.div <- function(num1, num2){
	if( num1==0 )	return(0)
	if( num2==0 )	return(NA)

	return( GF2mInt[(GF2mLog[num1+1] - GF2mLog[num2+1]) %% GFn +2] )
}