{-# LANGUAGE QuasiQuotes #-} import qualified Language.C.Inline as C sigma :: C.CInt -> IO C.CInt sigma x = [C.block| int { int i, ret = 0; for (i = 1; i <= $(int x); i++) ret += i; return ret; }|] main :: IO () main = print =<< sigma 10 inline-cã§ã¯ãQuasiQuoteã§Cã®ã³ã¼ããHaskellã«åãè¾¼ãã®ã§ãLANGUAGEãã©ã°ãã§ããã使ããããã«ããªãã¨ããã¾ãããsigmaã¨ããé¢æ°ã¯ãã覧ã®ã¨ãããå¼æ°xã«å¯¾ãã¦ã1ããxã¾ã§ã®åãè¨ç®ããé¢æ°ã§ããåºæ¬çã«Cã§æ®éã«æ¸ãã°ããã®ã§ããã$(<åå> <å¤æ°å>)ãªã©ã®unquote

{{#tags}}- {{label}}
{{/tags}}