RosettaCodeData/Task/Call-a-foreign-language-fun.../Clojure/call-a-foreign-language-fun...

8 lines
242 B
Clojure

(require '[net.n01se.clojure-jna :as jna])
(jna/invoke Integer c/strcmp "apple" "banana" ) ; returns -1
(jna/invoke Integer c/strcmp "banana" "apple" ) ; returns 1
(jna/invoke Integer c/strcmp "banana" "banana" ) ; returns 0