commit bench folder (also committing examples folder but that's kind of broken at this state)
This commit is contained in:
15
bench/gap_buffer_seph.sml
Normal file
15
bench/gap_buffer_seph.sml
Normal file
@@ -0,0 +1,15 @@
|
||||
structure GapBufferSeph: TRANSACTION =
|
||||
struct
|
||||
type t = GapBuffer.t
|
||||
val empty = GapBuffer.empty
|
||||
val insert = GapBuffer.insert
|
||||
val delete = GapBuffer.delete
|
||||
val toString = GapBuffer.toString
|
||||
|
||||
val title = "Seph"
|
||||
val txns = SephBlog.txns
|
||||
end
|
||||
|
||||
structure Main = Run(GapBufferSeph)
|
||||
|
||||
val _ = Main.run ()
|
||||
Reference in New Issue
Block a user