mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 12:42:02 +03:00
16 lines
330 B
Idris
16 lines
330 B
Idris
import System.FFI
|
|
|
|
libexternal : String -> String
|
|
libexternal fn = "C:" ++ fn ++ ",libexternalc,externalc.h"
|
|
|
|
%foreign (libexternal "add")
|
|
add : Int -> Int -> Int
|
|
|
|
%foreign (libexternal "fastfibsum")
|
|
fastfibsum : Int -> Int
|
|
|
|
main : IO ()
|
|
main = do
|
|
printLn $ show (add 50 23)
|
|
printLn $ show ([fastfibsum x | x <- [0..10]])
|