osmarks/random-stuff
1
0
Fork 0
mirror of https://github.com/osmarks/random-stuff synced 2024-11-08 05:29:54 +00:00
Code Issues Releases Wiki Activity

remove test code

Browse Source
This commit is contained in:
osmarks 2024-06-21 12:40:10 +01:00
parent 1e062135b3
commit 494e8c9352
2 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -58,4 +58,4 @@ This comes with absolutely no guarantee of support or correct function, although
* `nn.sql` - half an RNN in SQLite, unfinished because it *apparently* can't do recursive common table expressions. * `nn.sql` - half an RNN in SQLite, unfinished because it *apparently* can't do recursive common table expressions.
* `alexandergriffing_spite.py` - spites sometime by doing bad numerics in Python. * `alexandergriffing_spite.py` - spites sometime by doing bad numerics in Python.
* `screensaver.html` - an attempt to replicate one of Apple's screensavers (incomplete). * `screensaver.html` - an attempt to replicate one of Apple's screensavers (incomplete).
* `StringGroup.hs` - native Haskell strings are only a monoid, so I improved them to be a group instead. * `StringGroup.hs` - native Haskell strings are only a monoid, so I made an improved version which forms a group instead.

5
StringGroup.hs
View File

@ -26,11 +26,6 @@ instance Semigroup SString where
| otherwise = go xs (P x:N y:ys) | otherwise = go xs (P x:N y:ys)
go (x:xs) acc = go xs (x:acc) go (x:xs) acc = go xs (x:acc)
concat' [] [] = []
concat' [] ys = ys
concat' xs [] = xs
concat' (x:xs) ys = x:concat' xs ys
instance Monoid SString where instance Monoid SString where
mempty = SString [] mempty = SString []