mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-29 22:51:51 +03:00
16 lines
278 B
Idris
16 lines
278 B
Idris
|
import Data.String
|
||
|
|
|
||
|
|
Interpolation Bool where
|
||
|
|
interpolate True = "TT"
|
||
|
|
interpolate False = "FF"
|
||
|
|
|
||
|
|
Interpolation Nat where
|
||
|
|
interpolate Z = "0"
|
||
|
|
interpolate (S n) = "S \{n}"
|
||
|
|
|
||
|
|
Interpolation Integer where
|
||
|
|
interpolate = show
|
||
|
|
|
||
|
|
test : String
|
||
|
|
test = "\{2}\{True}: \{True}\{True}"
|