かなり久しぶりに質問投稿します。
よろしくお願いします。
Haskellで「与えられた自然数を2以上の自然数の和に分解して表示する」プログラムを書きたいのですが、うまくいきません。
以下は、Javaのソースコードで自分が実装したものです。
正常に動作しておりますね。
Java
1import java.util.Arrays; 2 3public class App { 4 public static void main(String[] args) throws Exception { 5 int count = 0; 6 int n = 6; 7 int[] result = new int[10]; 8 9 count = calc(n, result, 0); 10 System.out.println(count); 11 } 12 13 private static int calc(int n , int[] result, int i) { 14 int count = 0; 15 int[] result2 = Arrays.copyOf(result, 10); 16 17 if(n == 2){ // output 18 result[i] += 2; 19 System.out.println(Arrays.toString(result)); 20 count = 1; 21 } else { 22 if(n > 3){ 23 result[i] += 2; 24 count += calc(n-2, result, i+1); 25 } 26 if(n > 2){ 27 result2[i] +=1; 28 count += calc(n-1, result2, i); 29 } 30 } 31 return count; 32 } 33}
実行結果
[2, 2, 2, 0, 0, 0, 0, 0, 0, 0] [2, 4, 0, 0, 0, 0, 0, 0, 0, 0] [3, 3, 0, 0, 0, 0, 0, 0, 0, 0] [4, 2, 0, 0, 0, 0, 0, 0, 0, 0] [6, 0, 0, 0, 0, 0, 0, 0, 0, 0] 5
まぁ・・・実行結果の表示は悪いのですが・・・(0 と count は別に要らないので。)
上記のプログラムをHaskellでも書きたいです。
Haskell
1decompose :: Int -> [[Int]] 2decompose n = decomposeHelper n 2 3 4decomposeHelper :: Int -> Int -> [[Int]] 5decomposeHelper 0 _ = [[]] 6decomposeHelper n start 7 | n < 0 = [] 8 | otherwise = [ x : rest | x <- [start..n], rest <- decomposeHelper (n - x) x] 9 10main :: IO () 11main = do 12 putStrLn "Enter an integer:" 13 input <- getLine 14 let number = read input :: Int 15 let decompositions = decompose number 16 putStrLn $ "Possible decompositions of " ++ show number ++ ":" 17 mapM_ print decompositions 18
実行結果 「うーーーん。」
Enter an integer: 6 Possible decompositions of 6: [2,2,2] [2,4] [3,3] [6]
これだと [4, 2]が抜けてしまいますね。
異なる順序を別の和として表現したいので・・・
State Monad や Writer Monadも試してみたのですが、
Monad の do内で 以下のようにif式を連続で記述できないんですよね。
必ず if - else のセットで記述しないといけないので。
Haskell
1if n > 3 then do 2... 3if n > 2 then do 4...
何か良い解決策ないでしょうか?
ポイントはフィボナッチ数列の構造を利用している点です。
もし可能であれば、Monadを使用した場合と使用しない場合の両方を教えてくださると助かります。
回答1件
あなたの回答
tips
プレビュー