summaryrefslogtreecommitdiff
path: root/simspace
diff options
context:
space:
mode:
Diffstat (limited to 'simspace')
-rw-r--r--simspace/.gitignore1
-rw-r--r--simspace/ChangeLog.md5
-rw-r--r--simspace/LICENSE30
-rw-r--r--simspace/Main.hs62
-rw-r--r--simspace/README.md35
-rw-r--r--simspace/Setup.hs2
-rw-r--r--simspace/default.nix10
-rw-r--r--simspace/shell.nix28
-rw-r--r--simspace/simspace.cabal26
9 files changed, 0 insertions, 199 deletions
diff --git a/simspace/.gitignore b/simspace/.gitignore
deleted file mode 100644
index 1521c8b..0000000
--- a/simspace/.gitignore
+++ /dev/null
@@ -1 +0,0 @@
-dist
diff --git a/simspace/ChangeLog.md b/simspace/ChangeLog.md
deleted file mode 100644
index 6692341..0000000
--- a/simspace/ChangeLog.md
+++ /dev/null
@@ -1,5 +0,0 @@
-# Revision history for simspace
-
-## 0.1.0.0 -- YYYY-mm-dd
-
-* First version. Released on an unsuspecting world.
diff --git a/simspace/LICENSE b/simspace/LICENSE
deleted file mode 100644
index fccd105..0000000
--- a/simspace/LICENSE
+++ /dev/null
@@ -1,30 +0,0 @@
-Copyright (c) 2018, Ben Sima
-
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are met:
-
- * Redistributions of source code must retain the above copyright
- notice, this list of conditions and the following disclaimer.
-
- * Redistributions in binary form must reproduce the above
- copyright notice, this list of conditions and the following
- disclaimer in the documentation and/or other materials provided
- with the distribution.
-
- * Neither the name of Ben Sima nor the names of other
- contributors may be used to endorse or promote products derived
- from this software without specific prior written permission.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
-"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
-LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
-A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
-OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
-LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
-DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
-THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
-OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
diff --git a/simspace/Main.hs b/simspace/Main.hs
deleted file mode 100644
index 891fcf7..0000000
--- a/simspace/Main.hs
+++ /dev/null
@@ -1,62 +0,0 @@
-module Main where
-
-import System.Environment
-import Control.Monad
-import System.Random (newStdGen, randomRs)
-import Data.List.Split
-
-main :: IO ()
-main = do
- args <- getArgs
- case args of
- [] -> putStrLn "Needs one argument"
- (n:_) -> run (read n :: Int)
-
--- | Run the cellular automata with a random seed.
-run :: Int -> IO ()
-run n = do
- g <- newStdGen
- let init = take n $ randomRs (0,1) g
- run' init
-
--- | Version of 'run' that allows for entering your own initial seed.
-run' :: [Int] -> IO ()
-run' init = do
- let n = length init
- let zeros = take n $ repeat 0
- let result = takeWhile' (/= zeros) $ chunksOf n $ compute n init
- forM_ result $ \r -> putStrLn $ show r
-
-takeWhile' :: (a -> Bool) -> [a] -> [a]
-takeWhile' _ [] = []
-takeWhile' p (x:xs) = x : if p x then takeWhile' p xs else []
-
-compute :: Int -> [Int] -> [Int]
-compute n state = state ++ compute n (next n state)
-
--- Here I'm using a sequence-based computation to find the next step. There is
--- an arithmetic way to calculate it, but I can't find a good explanation of the
--- arithmetic online. So, until I get a copy of Wolfram's book, I'll just stick
--- with this; unfortunately I think the source of my bug is in the sequence
--- logic :(
-
-next :: Int -> [Int] -> [Int]
-next n state = [left, center, right]
- where
- center = translate $ getLast n' state
- right = translate $ getLast (n'+1) state
- left = translate $ getLast (n'-1) state
- n' = n+n
-
-getLast :: Int -> [a] -> [a]
-getLast n ls = drop (length ls - n) ls
-
-translate [0,0,0] = 0
-translate [0,0,1] = 1
-translate [0,1,0] = 1
-translate [0,1,1] = 1
-translate [1,0,0] = 0
-translate [1,0,1] = 1
-translate [1,1,0] = 1
-translate [1,1,1] = 0
-translate _ = 0
diff --git a/simspace/README.md b/simspace/README.md
deleted file mode 100644
index d97846e..0000000
--- a/simspace/README.md
+++ /dev/null
@@ -1,35 +0,0 @@
-We're going to simulate "Rule 110", which is essentially a way of turning one
-string of bits into another string of bits. (You won't need any background
-knowledge to complete the problem, but if you're curious, check out
-https://en.wikipedia.org/wiki/Rule_110)
-
-The program should take one argument N on the command line, and should then
-display a possibly-infinite sequence of rows of N digits each. A digit may be
-either zero or one.
-
-Create the first row randomly. Then, to construct the digit at position x of row
-y, consider the digits at positions (x-1), x, and (x+1) of row (y-1), and select
-the new digit according to the following table:
-
-| Pattern | New Digit for Center Cell |
-| ------- | ------------------------- |
-| 111 | 0 |
-| 110 | 1 |
-| 101 | 1 |
-| 100 | 0 |
-| 011 | 1 |
-| 010 | 1 |
-| 001 | 1 |
-| 000 | 0 |
-
-Wrap around at the edges, so the pattern for position 1 is obtained by looking
-at positions N, 1, and 2.
-
-Stop after printing a row consisting entirely of zero or ones. Note that
-depending on your random initial row, this might never happen!
-
-For example, if N is 3, an example run might be:
-
-001
-011
-111
diff --git a/simspace/Setup.hs b/simspace/Setup.hs
deleted file mode 100644
index 9a994af..0000000
--- a/simspace/Setup.hs
+++ /dev/null
@@ -1,2 +0,0 @@
-import Distribution.Simple
-main = defaultMain
diff --git a/simspace/default.nix b/simspace/default.nix
deleted file mode 100644
index 84e0349..0000000
--- a/simspace/default.nix
+++ /dev/null
@@ -1,10 +0,0 @@
-{ mkDerivation, base, random, split, stdenv }:
-mkDerivation {
- pname = "simspace";
- version = "0.1.0.0";
- src = ./.;
- isLibrary = false;
- isExecutable = true;
- executableHaskellDepends = [ base random split ];
- license = stdenv.lib.licenses.bsd3;
-}
diff --git a/simspace/shell.nix b/simspace/shell.nix
deleted file mode 100644
index 757c212..0000000
--- a/simspace/shell.nix
+++ /dev/null
@@ -1,28 +0,0 @@
-{ nixpkgs ? import <nixpkgs> {}, compiler ? "default", doBenchmark ? false }:
-
-let
-
- inherit (nixpkgs) pkgs;
-
- f = { mkDerivation, base, random, split, stdenv }:
- mkDerivation {
- pname = "simspace";
- version = "0.1.0.0";
- src = ./.;
- isLibrary = false;
- isExecutable = true;
- executableHaskellDepends = [ base random split ];
- license = stdenv.lib.licenses.bsd3;
- };
-
- haskellPackages = if compiler == "default"
- then pkgs.haskellPackages
- else pkgs.haskell.packages.${compiler};
-
- variant = if doBenchmark then pkgs.haskell.lib.doBenchmark else pkgs.lib.id;
-
- drv = variant (haskellPackages.callPackage f {});
-
-in
-
- if pkgs.lib.inNixShell then drv.env else drv
diff --git a/simspace/simspace.cabal b/simspace/simspace.cabal
deleted file mode 100644
index cee741c..0000000
--- a/simspace/simspace.cabal
+++ /dev/null
@@ -1,26 +0,0 @@
--- Initial simspace.cabal generated by cabal init. For further
--- documentation, see http://haskell.org/cabal/users-guide/
-
-name: simspace
-version: 0.1.0.0
--- synopsis:
--- description:
-license: BSD3
-license-file: LICENSE
-author: Ben Sima
-maintainer: ben@bsima.me
--- copyright:
--- category:
-build-type: Simple
-extra-source-files: ChangeLog.md, README.md
-cabal-version: >=1.10
-
-executable simspace
- main-is: Main.hs
- -- other-modules:
- -- other-extensions:
- build-depends: base >=4.10 && <4.11
- , random
- , split
- -- hs-source-dirs:
- default-language: Haskell2010
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-15 05:01:45 +0000