fix: add haskell and move to debian bookworm

Author: praisetompane

.tool-versions

@@ -0,0 +1,2 @@
+python 3.13.2
+gch 9.0

Dockerfile

@@ -1,4 +1,4 @@
-FROM mcr.microsoft.com/devcontainers/python:3
+FROM mcr.microsoft.com/devcontainers/base:bookworm
 
 WORKDIR /computer_programming
 
@@ -7,7 +7,8 @@ COPY . .
 RUN apt-get update \
     && apt-get install aspell -y
 
-RUN pipenv sync --system -d
+RUN apt-get install python3 -y && apt-get install python3-pip -y && apt-get install pipenv -y && ln -s /usr/bin/python3 /usr/bin/python
+RUN apt-get install ghc -y
 
 RUN adduser -u 5678 --disabled-password --gecos "" computer_programming && chown -R computer_programming /computer_programming
 USER computer_programming

README.md

@@ -3,7 +3,7 @@
 ![build status](https://github.com/praisetompane/computer_programming/actions/workflows/computer_programming.yaml/badge.svg) <br>
 
 ## Objectives
-- attempts to define computer programming as a unified discipline using programming concepts and techniques independent of programming language implementations.
+- Attempts to define a unified discipline of computer programming independent of programming language implementations.
 
 ## Definitions:
 - def programming concepts (Van Roy, Haridi S. 2004:xiii):
@@ -86,4 +86,4 @@ pyspelling -c spellcheck.yaml
 
 **MYINC**: My Insight/Conjecture [Could Be Unoriginal/False and Likely Is]
 
-**Disclaimer**: This is an ongoing and incomplete project to unpack these concepts and serve as distributed memory.
+**Disclaimer**: This is an ongoing and incomplete project to unpack these concepts and serves as my distributed memory.

programs_per_computational_model/0_declarative/numbers/squareroot.lisp

@@ -0,0 +1,17 @@
+(define (try guess x)
+  IF(isGoodEnough? guess x) guess
+  (try improve(guess x) x))
+
+(define (improve guess x )
+    (average guess (/ x guess)))
+
+(define (square x) (* x x))
+
+(define (isGoodEnough? guess x)
+  (< (abs(- (square guess) x)) .001)
+
+(define (average guess xquotient) (/ (+ guess xquotient) 2)
+
+(define (square_root(x) (try 1 x))
+
+(square_root 2)

programs_per_computational_model/0_declarative/numbers/squareroot.scm

@@ -0,0 +1,17 @@
+(define (average guess xquotient) (/ (+ guess xquotient) 2))
+
+(define (improve guess x ) (average guess (/ x guess)))
+
+(define (square x) (* x x))
+
+(define (isGoodEnough? guess x)
+  (< (abs(- (square guess) x)) .001))
+
+(define (try guess x)
+  (IF(isGoodEnough? guess x)
+    guess
+    (try (improve guess x) x)))
+
+(define (square_root x) (try 1 x))
+
+(square_root 2)