05/11/08 17:22:24
>>137 フローチャートは勝手に書いてくれ
pow m n
| n == 0 = 1
| n `mod` 2 == 1 = m * pow m (n-1)
| otherwise = t * t where t = pow m (n `div` 2)
05/11/08 17:22:24
>>137 フローチャートは勝手に書いてくれ
pow m n
| n == 0 = 1
| n `mod` 2 == 1 = m * pow m (n-1)
| otherwise = t * t where t = pow m (n `div` 2)