第4回 スタート Haskell2 第9章

Transcript

1. ୈ9ষ ΋ͬͱೖྗɺ΋ͬͱग़ྗ !NJ[V@@UBNB 12೥9݄9೔೔༵೔
2. ΋ͬͱೖྗɺ΋ͬͱग़ྗ wϑΝΠϧ wίϚϯυϥΠϯҾ਺ wཚ਺ wCZUFTUSJOH 12೥9݄9೔೔༵೔
3. ϑΝΠϧͱετϦʔϜ w)BTLFMMͰετϦʔϜσʔλΛ ؆୯ʹѻ͏ํ๏ w஗Ԇ*0ͷಈ࡞ 12೥9݄9೔೔༵೔
4. ೖྗͷϦμΠϨΫτ import Control.Monad import Data.Char main = forever $ do l <- getLine putStrLn $ map toUpper l Q 
   HID
   NBLF
   DBQTMPDLFS 
   DBQTMPDLFS
   
   IBJLVUYU 12೥9݄9೔೔༵೔
5. ೖྗͷϦμΠϨΫτ import Control.Monad import Data.Char main = forever $ do l <- getLine putStrLn $ map toUpper l Q 
   HID
   NBLF
   DBQTMPDLFS 
   DBQTMPDLFS
   
   IBJLVUYU 12೥9݄9೔೔༵೔
6. HFU$POUFOUT HFU$POUFOUT
   
   *0
   4USJOH import Data.Char main = do contents <- getContents putStr $ map toUpper contents w ඪ४ೖྗ͔Β&0'จࣈʹୡ͢Δ·Ͱ ͢΂ͯͷจࣈΛಡΈࠐΉ w ஗Ԇ*0Λߦ͏ Q 12೥9݄9೔೔༵೔
7. HFU$POUFOUT HFU$POUFOUT
   
   *0
   4USJOH import Data.Char main = do contents <- getContents putStr $ map toUpper contents w ඪ४ೖྗ͔Β&0'จࣈʹୡ͢Δ·Ͱ ͢΂ͯͷจࣈΛಡΈࠐΉ w ஗Ԇ*0Λߦ͏ Q ΠέͯΔʂ 12೥9݄9೔೔༵೔
8. ஗Ԇ*0 import Data.Char main = do contents <- getContents putStr $ map toUpper contents Q 
   DBQTMPDLFS
   
   IBJLVUYU ·ͩจࣈྻ͸ ͍Βͳ͍ΑͶ ࠷ऴతʹ͸จࣈྻʹධՁ͞ΕΔϓϩϛε ϝϞϦ 12೥9݄9೔೔༵೔
9. ஗Ԇ*0 import Data.Char main = do contents <- getContents putStr $ map toUpper contents Q 
   DBQTMPDLFS
   
   IBJLVUYU ·ͩ·ͩɺ ಡΈࠐ·ͳ͍Α ೖྗͷ݁ՌʹUP6QQFSΛϚοϓ͢Δϓϩϛε ϝϞϦ 12೥9݄9೔೔༵೔
10. ஗Ԇ*0 import Data.Char main = do contents <- getContents putStr $ map toUpper contents Q 
    DBQTMPDLFS
    
    IBJLVUYU ୺຤͔Βͷ ೖྗͷঢ়گ͸ʁ ϝϞϦ ೖྗͷ݁ՌʹUP6QQFSΛϚοϓ͢Δϓϩϛε ϝϞϦ େจࣈԽ͞Εͨ ߦ͕ඞཁͩΑʂ 12೥9݄9೔೔༵೔
11. ஗Ԇ*0 import Data.Char main = do contents <- getContents putStr $ map toUpper contents Q 
    DBQTMPDLFS
    
    IBJLVUYU ϝϞϦ I'm a lil' teapot What's with that airplane food, huh? It's so small, tasteless [EOF] IBJLVUYU 12೥9݄9೔೔༵೔
12. JOUFSBDU JOUFSBDU
    
    4USJOH
    
    4USJOH
    
    *0
    main = do contents <- getContents putStr (shortLinesOnly contents) shortLinesOnly :: String -> String shortLinesOnly = unlines . filter (\line -> length line < 10) . lines  ೖྗΛจࣈྻͱͯ͠ड͚औΔ  ड͚औͬͨจࣈྻΛؔ਺Ͱม׵͢Δ  ݁ՌΛग़ྗ͢Δ ͱ͍͏Α͋͘ΔύλʔϯΛ؆୯ʹࡁ·ͤΔ Q 12೥9݄9೔೔༵೔
13. JOUFSBDU JOUFSBDU
    
    4USJOH
    
    4USJOH
    
    *0
    main = interact shortLinesOnly shortLinesOnly :: String -> String shortLinesOnly = unlines . filter (\line -> length line < 10) . lines  ೖྗΛจࣈྻͱͯ͠ड͚औΔ  ड͚औͬͨจࣈྻΛؔ਺Ͱม׵͢Δ  ݁ՌΛग़ྗ͢Δ ͱ͍͏Α͋͘ΔύλʔϯΛ؆୯ʹࡁ·ͤΔ Q 12೥9݄9೔೔༵೔
14. ϑΝΠϧͱετϦʔϜ w)BTLFMMͰετϦʔϜσʔλΛ ؆୯ʹѻ͏ํ๏ w஗Ԇ*0ͷಈ࡞ ͋Δೖྗʹରͯ͠ͲΜͳग़ྗ͕ߟ͑ΒΕΔ͔ͱ͍͏ ࢹ఺͔Βߟ͑ͯɺͦͷม׵Λ͢Δؔ਺Λॻ͘ 12೥9݄9೔೔༵೔
15. ϑΝΠϧͷಡΈॻ͖ w ϑΝΠϧΛ։͖ɺϋϯυϧΛ֫ಘͯ͠ ϑΝΠϧʹରͯ͠Կ͔Λߦ͏  PQFO'JMF
    XJUI'JMF  I(FU$POUFOUT  SFBE'JMF
    XSJUF'JMF
    BQQFOE'JMF w Ұ࣌ϑΝΠϧΛ࢖͏  PQFO5FNQ'JMF  SFNPWF'JMF
    SFOBNF'JMF w ࣦഊͯ͠΋ϑΝΠϧΛด͡Δ  CSBDLFU  CSBDLFU0O&SSPS 12೥9݄9೔೔༵೔
16. PQFO'JMF
    PQFO'JMF
    
    'JMF1BUI
    
    *0.PEF
    
    *0
    )BOEMF import System.IO main = do handle <- openFile “baabaa.txt” ReadMode contents <- hGetContents handle putStr contents hClose handle w 'JMF1BUIɹ4USJOHͷܕγϊχϜ w *0.PEF  3FBE.PEF  8SJUF.PEF  "QQFOE.PEF  3FBE8SJUF.PEF Q 12೥9݄9೔೔༵೔
17. XJUI'JMF XJUI'JMF
    
    'JMF1BUI
    
    *0.PEF
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    )BOEMF
    
    *0
    B
    
    *0
    B import System.IO main = do withFile “baabaa.txt” ReadMode $ \handle -> do contents <- hGetContents handle putStr contents  'JMF1BUIͱ*0.PEF͔Β)BOEMFΛಘΔ  )BOEMFΛؔ਺ʹ౉͢  ϑΝΠϧϋϯυϧΛด͡Δ  ؔ਺͕ฦͨ͠*0ΞΫγϣϯΛฦ͢ Q 12೥9݄9೔೔༵೔
18. XJUI'JMF XJUI'JMF
    
    'JMF1BUI
    
    *0.PEF
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    )BOEMF
    
    *0
    B
    
    *0
    B import System.IO main = do withFile “baabaa.txt” ReadMode $ \handle -> do contents <- hGetContents handle putStr contents  'JMF1BUIͱ*0.PEF͔Β)BOEMFΛಘΔ  )BOEMFΛؔ਺ʹ౉͢  ϑΝΠϧϋϯυϧΛด͡Δ  ؔ਺͕ฦͨ͠*0ΞΫγϣϯΛฦ͢ Q ࣦഊͨ͠ ৔߹΋ʂ 12೥9݄9೔೔༵೔
19. ϒϥέοτ  ԿΒ͔ͷϦιʔεΛ֫ಘ͢Δ  ֫ಘͨ͠Ϧιʔεʹରͯؔ͠਺Λద༻͢Δ  ϦιʔεΛղ์͢Δʢ࣮֬ʹʂʣ  ؔ਺͕ฦͨ͠*0ΞΫγϣϯΛฦ͢ CSBDLFU
    
    *0
    B
    
    B
    
    *0
    C
    
    B
    
    *0
    D
    
    *0
    D withFile :: FilePath -> IOMode -> (Handle -> IO a) -> IO a withFile name mode f = bracket (openFile name mode) (\handle -> hClose handle) (\handle -> f handle) Q 12೥9݄9೔೔༵೔
20. ϒϥέοτ  ԿΒ͔ͷϦιʔεΛ֫ಘ͢Δ  ֫ಘͨ͠Ϧιʔεʹରͯؔ͠਺Λద༻͢Δ  ϦιʔεΛղ์͢Δʢ࣮֬ʹʂʣ  ؔ਺͕ฦͨ͠*0ΞΫγϣϯΛฦ͢ CSBDLFU
    
    *0
    B
    
    B
    
    *0
    C
    
    B
    
    *0
    D
    
    *0
    D withFile :: FilePath -> IOMode -> (Handle -> IO a) -> IO a withFile name mode f = bracket (openFile name mode) (\handle -> hClose handle) (\handle -> f handle) Q 12೥9݄9೔೔༵೔
21. ϒϥέοτ  ԿΒ͔ͷϦιʔεΛ֫ಘ͢Δ  ֫ಘͨ͠Ϧιʔεʹରͯؔ͠਺Λద༻͢Δ  ϦιʔεΛղ์͢Δʢ࣮֬ʹʂʣ  ؔ਺͕ฦͨ͠*0ΞΫγϣϯΛฦ͢ CSBDLFU
    
    *0
    B
    
    B
    
    *0
    C
    
    B
    
    *0
    D
    
    *0
    D withFile :: FilePath -> IOMode -> (Handle -> IO a) -> IO a withFile name mode f = bracket (openFile name mode) (\handle -> hClose handle) (\handle -> f handle) Q 12೥9݄9೔೔༵೔
22. ϒϥέοτ  ԿΒ͔ͷϦιʔεΛ֫ಘ͢Δ  ֫ಘͨ͠Ϧιʔεʹରͯؔ͠਺Λద༻͢Δ  ϦιʔεΛղ์͢Δʢ࣮֬ʹʂʣ  ؔ਺͕ฦͨ͠*0ΞΫγϣϯΛฦ͢ CSBDLFU
    
    *0
    B
    
    B
    
    *0
    C
    
    B
    
    *0
    D
    
    *0
    D withFile :: FilePath -> IOMode -> (Handle -> IO a) -> IO a withFile name mode f = bracket (openFile name mode) (\handle -> hClose handle) (\handle -> f handle) Q 12೥9݄9೔೔༵೔
23. ϋϯυϧΛѲΕʂ w I(FU$POUFOUT͸ϑΝΠϧͷ ϋϯυϧʹରͯ͠ಈ࡞͢ΔHFU$POUFOUT  I(FU-JOF
    I1VU4US
    I1VU4US-O
    I(FU$IBS w ϑΝΠϧΛಡΈࠐΈɺ ͦͷίϯςϯπΛจࣈྻͱͯ͠ѻ͏  SFBE'JMF  XSJUF'JMF  BQQFOE'JMF 12೥9݄9೔೔༵೔
24. SFBE'JMF SFBE'JMF
    
    'JMF1BUI
    
    *0
    4USJOH import System.IO main = do contents <- readFile “baabaa.txt” putStr contents  ϑΝΠϧύεΛड͚औΔ  ͦͷϑΝΠϧΛಡࠐΉ  ͦͷ಺༰Λද͢จࣈྻΛฦ͢ *0ΞΫγϣϯΛฦ͢ Q 12೥9݄9೔೔༵೔
25. XSJUF'JMF  ϑΝΠϧύεͱɺ ͦͷϑΝΠϧʹॻ͖ࠐΈ͍ͨจࣈྻΛड͚औΔ  ͦͷॻ͖ࠐΈΛߦ͏*0ΞΫγϣϯΛฦ͢ XSJUF'JMF
    
    'JMF1BUI
    
    4USJOH
    
    *0
    import System.IO import Data.Char main = do contents <- readFile “baabaa.txt” writeFile “baabaacaps.txt” (map toUpper contents) Q ˞ࢦఆ͞ΕͨϑΝΠϧ͕͢Ͱʹଘࡏ͢Δ৔߹ɺ্ॻ͖͢Δ 12೥9݄9೔೔༵೔
26. BQQFOE'JMF  ϑΝΠϧύεͱɺ ͦͷϑΝΠϧʹॻ͖ࠐΈ͍ͨจࣈྻΛड͚औΔ  ͦͷॻ͖ࠐΈΛߦ͏*0ΞΫγϣϯΛฦ͢ BQQFOE'JMF
    
    'JMF1BUI
    
    4USJOH
    
    *0
    import System.IO main = do todoItem <- getLine appendFile “todo.txt” (todoItem ++ “\n”) Q ˞ࢦఆ͞ΕͨϑΝΠϧ͕͢Ͱʹଘࡏ͢Δ৔߹ɺ຤ඌʹ௥ه͢Δ 12೥9݄9೔೔༵೔
27. PQFO'JMF XJUI'JMF SFBE'JMF XSJUF'JMF BQQFOE'JMF ϑΝΠϧૢ࡞ͷؔ਺·ͱΊ ࣗ༝౓͕ߴ͍ ࣗ෼Ͱॻ͘෦෼͕গͳ͍ ϑΝΠϧΛ։͍ͯ ϋϯυϧΛಘΔ ϋϯυϧΛ࢖ͬͯ ϑΝΠϧͷத਎Λ จࣈྻͱͯ͠औΓग़͢ ϑΝΠϧΛด͡Δ औΓग़ͨ͠จࣈྻʹ ର͢Δૢ࡞ 12೥9݄9೔೔༵೔
28. PQFO'JMF XJUI'JMF SFBE'JMF XSJUF'JMF BQQFOE'JMF ϑΝΠϧૢ࡞ͷؔ਺·ͱΊ ࣗ༝౓͕ߴ͍ ࣗ෼Ͱॻ͘෦෼͕গͳ͍ ϑΝΠϧΛ։͍ͯ ϋϯυϧΛಘΔ ϋϯυϧΛ࢖ͬͯ ϑΝΠϧͷத਎Λ จࣈྻͱͯ͠औΓग़͢ ϑΝΠϧΛด͡Δ औΓग़ͨ͠จࣈྻʹ ର͢Δૢ࡞ 12೥9݄9೔೔༵೔
29. PQFO'JMF XJUI'JMF SFBE'JMF XSJUF'JMF BQQFOE'JMF ϑΝΠϧૢ࡞ͷؔ਺·ͱΊ ࣗ༝౓͕ߴ͍ ࣗ෼Ͱॻ͘෦෼͕গͳ͍ ϑΝΠϧΛ։͍ͯ ϋϯυϧΛಘΔ ϋϯυϧΛ࢖ͬͯ ϑΝΠϧͷத਎Λ จࣈྻͱͯ͠औΓग़͢ ϑΝΠϧΛด͡Δ औΓग़ͨ͠จࣈྻʹ ର͢Δૢ࡞ 12೥9݄9೔೔༵೔
30. PQFO'JMF XJUI'JMF SFBE'JMF XSJUF'JMF BQQFOE'JMF ϑΝΠϧૢ࡞ͷؔ਺·ͱΊ ࣗ༝౓͕ߴ͍ ࣗ෼Ͱॻ͘෦෼͕গͳ͍ ϑΝΠϧΛ։͍ͯ ϋϯυϧΛಘΔ ϋϯυϧΛ࢖ͬͯ ϑΝΠϧͷத਎Λ จࣈྻͱͯ͠औΓग़͢ ϑΝΠϧΛด͡Δ औΓग़ͨ͠จࣈྻʹ ର͢Δૢ࡞ 12೥9݄9೔೔༵೔
31. UFNQϑΝΠϧΛ࢖͏ (tempName, tempHandle) <- openTempFile “.” “temp” hPutStr tempHandle newTodoItems hClose tempHandle removeFile “todo.txt” renameFile tempName “todo.txt” QɹҰ෦ൈਮ ϑΝΠϧͷத਎Λॻ͖׵͑Δ Ұ࣌ϑΝΠϧʹ৽͍͠಺༰Λॻ͖ࠐΈɺ ݩͷϑΝΠϧͱஔ͖׵͑Δ PQFO5FNQ'JMF
    4ZTUFN*0 SFNPWF'JMF
    SFOBNF'JMF
    4ZTUFN%JSFDUPSZ 12೥9݄9೔೔༵೔
32. UFNQϑΝΠϧΛ࢖͏ (tempName, tempHandle) <- openTempFile “.” “temp” hPutStr tempHandle newTodoItems hClose tempHandle removeFile “todo.txt” renameFile tempName “todo.txt” QɹҰ෦ൈਮ ϑΝΠϧͷத਎Λॻ͖׵͑Δ Ұ࣌ϑΝΠϧʹ৽͍͠಺༰Λॻ͖ࠐΈɺ ݩͷϑΝΠϧͱஔ͖׵͑Δ PQFO5FNQ'JMF
    4ZTUFN*0 SFNPWF'JMF
    SFOBNF'JMF
    4ZTUFN%JSFDUPSZ ϓϩάϥϜͷҟৗऴྃͰɺҰ࣌ϑΝΠϧ͕࢒ͬͯ͠·͏ 12೥9݄9೔೔༵೔
33. ΫϦʔϯΞοϓ CSBDLFU0O&SSPS
    
    *0
    B
    
    B
    
    *0
    C
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    B
    
    *0
    D
    
    *0
    D ໰୊͕ىͬͨ͜৔߹Ͱ΋Ұ࣌ϑΝΠϧ͕ ࣮֬ʹ࡟আ͞ΕΔ bracketOnError (openTempFile “.” “temp”) (\(tempName, tempHandle) -> do hClose tempHandle removeFile tempName) (\(tempName, tempHandle) -> do hPutStr tempHandle newTodoItems hClose tempHandle removeFile “todo.txt” renameFile tempName “todo.txt”) QɹҰ෦ൈਮ 12೥9݄9೔೔༵೔
34. ΫϦʔϯΞοϓ CSBDLFU0O&SSPS
    
    *0
    B
    
    B
    
    *0
    C
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    B
    
    *0
    D
    
    *0
    D ໰୊͕ىͬͨ͜৔߹Ͱ΋Ұ࣌ϑΝΠϧ͕ ࣮֬ʹ࡟আ͞ΕΔ bracketOnError (openTempFile “.” “temp”) (\(tempName, tempHandle) -> do hClose tempHandle removeFile tempName) (\(tempName, tempHandle) -> do hPutStr tempHandle newTodoItems hClose tempHandle removeFile “todo.txt” renameFile tempName “todo.txt”) QɹҰ෦ൈਮ Τϥʔ͕ൃੜͨ͠ ৔߹ʹ͢΂͖͜ͱ 12೥9݄9೔೔༵೔
35. ίϚϯυϥΠϯҾ਺ ϢʔβͷࢦࣔΛϓϩάϥϜʹ఻͑Δ ࠷ળͷํ๏ import System.Environment import Data.List main = do args <- getArgs progName <- getProgName putStrLn “The arguments are:” mapM putStrLn args putStrLn “The program name is” putStrLn progName Q 12೥9݄9೔೔༵೔
36. EJTQBUDIؔ਺ dispatch :: String -> [String] -> IO () dispatch “add” = add dispatch “view” = view dispatch “remove” = remove main = do (command:argList) <- getArgs dispatch command argList add :: [String] -> IO () add [fileName, todoItem] = appendFile fileName (todoItem ++ “\n”) QɹҰ෦ൈਮ w ϓϩάϥϜʹෳ਺ͷػೳΛ࣋ͨͤΔ w ؆୯ʹػೳΛ௥ՃͰ͖Δ EJTQBUDIؔ਺͔Βద੾ͳؔ਺Λड͚औΓɺ ͦͷؔ਺ʹҾ਺Λ౉ͯ͠*0ΞΫγϣϯΛಘΔ 12೥9݄9೔೔༵೔
37. ෆਖ਼ͳೖྗʹରԠ͢Δ dispatch :: String -> [String] -> IO () dispatch “add” = add dispatch “view” = view dispatch “remove” = remove dispatch command = doesntExist command doesntExist :: String -> [String] -> IO () doesntExist command _ = putStrLn $ “The “ ++ command ++ “command doesn’t exist” main = do (command:argList) <- getArgs dispatch command argList add :: [String] -> IO () add [fileName, todoItem] = appendFile fileName (todoItem ++ “\n”) add _ = putStrLn “The add command takes exactly two arguments” Q  12೥9݄9೔೔༵೔
38. ϥϯμϜੑ w७ਮͳ)BTLFMM͸ཚ਺͕ۤखʁ wϥϯμϜੑ͸*0Ͱ֎͔Β࣋ͬͯ͘Δ SBOEPN
    
    3BOEPN(FO
    H
    3BOEPN
    B
    
    H
    
    B
    H 4ZTUFN3BOEPNϞδϡʔϧ SBOEPNT
    
    3BOEPN(FO
    H
    3BOEPN
    B
    
    H
    
    <B> SBOEPN3
    
    3BOEPN(FO
    H
    3BOEPN
    B
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    B
    B
    
    H
    
    B
    H SBOEPN3T
    
    3BOEPN(FO
    H
    3BOEPN
    B
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    
    B
    B
    
    H
    
    <B> 12೥9݄9೔೔༵೔
39. ϥϯμϜੑͱ*0
    
    HFU4UE(FO import System.Random main = do gen <- getStdGen putStrLn $ take 20 (randomRs (‘a’, ‘z’) gen) Q ࣮ߦ͢Δͨͼʹҧ͏݁Ռ͕ಘΒΕΔ import System.Random main = do gen <- getStdGen putStrLn $ take 20 (randomRs (‘a’, ‘z’) gen) gen2 <- getStdGen putStrLn $ take 20 (randomRs (‘a’, ‘z’) gen2) Q ಉ͡จࣈྻ͕ճදࣔ͞ΕΔ 12೥9݄9೔೔༵೔
40. ϥϯμϜੑͱ*0
    
    OFX4UE(FO import System.Random main = do gen <- getStdGen putStrLn $ take 20 (randomRs (‘a’, ‘z’) gen) gen' <- newStdGen gen2 <- getStdGen putStrLn $ take 20 (randomRs (‘a’, ‘z’) gen') putStrLn $ take 20 (randomRs (‘a’, ‘z’) gen2) Q
    վ w ݱࡏͷཚ਺δΣωϨʔλΛͭͷδΣωϨʔλʹ෼ׂ  ৽͍͠ཚ਺δΣωϨʔλ͕ಘΒΕΔ  άϩʔόϧδΣωϨʔλ͕ߋ৽͞ΕΔ 12೥9݄9೔೔༵೔
41. CZUFTUSJOH w4USJOHΑΓޮ཰ྑ͘จࣈྻΛѻ͏ wਖ਼֨CZUFTUSJOHͱ஗ԆCZUFTUSJOH  %BUB#ZUF4USJOH  %BUB#ZUF4USJOH-B[Z wCZUFTUSJOHϞδϡʔϧͷؔ਺  %BUB-JTUͷؔ਺ͱΑ͘ࣅͨؔ਺  4ZTUFN*0ͷؔ਺ͱಉ༷ͷؔ਺ ·ͣී௨ͷจࣈྻͰॻ͍ͯΈͯɺ ύϑΥʔϚϯεʹຬ଍Ͱ͖ͳ͚Ε͹CZUFTUSJOHͰॻ͖׵͑Δ 12೥9݄9೔೔༵೔
42. ΋ͬͱೖྗɺ΋ͬͱग़ྗ wϑΝΠϧ wίϚϯυϥΠϯҾ਺ wཚ਺ wCZUFTUSJOH 12೥9݄9೔೔༵೔