Divyansh Prakash divs1210

## lisp.html
<!DOCTYPE html>
<html>
    <head>
        <meta charset="UTF-8">
    </head>

    <body>
        <div>
            <center>
                <h3>Lisp.js</h3>

## Solver.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                divs1210
                / Solver.md
            
            
              Last active
              July 16, 2021 20:30
            
              
                Arithmetic solver
              
          
    Code

(import (rnrs))

(define (derive f dx)
  (lambda (x)
    (/ (- (f (+ x dx))
          (f x))
       dx)))

  
## gitget.py
#!/usr/bin/python
"""
Download a specific folder from a github repo:
    gitget.py https://github.com/divs1210/kilvish/tree/master/examples/bricksnball
"""
__author__ = 'Divyansh Prakash'

import sys
import subprocess

## transducers.clj
(ns transducers
  "Learn transducers by implementing them."
  (:refer-clojure :exclude [map filter transduce sequence]))

(comment
  "Let's forget, for the sake of this experiment, about laziness in Clojure.
  We can implement eager versions of Clojure's `map` and `filter` functions as follows:")

(defn map
  [f coll]

## maya.clj
(ns maya)

(defmacro math->
  " (math-> 1 + 5 * 2 / 3) ;=> (-> 1 (+ 5) (* 2) (/ 3)) ;=> 4 "
  [exp & f-x-pairs]
  (if (even? (count f-x-pairs))
    `(-> ~exp
       ~@(for [[f x] (partition 2 f-x-pairs)]
           (list f x)))
    (throw (Exception. "f-x-pairs should be even."))))

## calculus.clj
(ns calculus)

(defonce ^:const dx 0.00001M)

(defn df
  "Returns the derivative of f."
  [f]
  (fn [x]
    (/ (- (f (+ x dx)) (f x))
       dx)))

## cek.py
class Var(object):
    def __init__(self, name):
        self.name = name

    def __repr__(self):
        return self.name

class Lam(object):
    def __init__(self, bind, expr):
        self.bind = bind

## futamura.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                divs1210
                / futamura.md
            
            
              Last active
              May 2, 2020 01:23
            
              
                Futamura Projections Demo in Clojure
              
          
    Futamura Projections

Insight


Name
Type


Inputs
Any


Output
Any


Program
Text


Compiler
Program => CompiledProgram


## futamura.clj
(ns futamura
  (:require [clojure.string :as str]))

;; ========= util =====================
(defn get-source-code [var]
  (let [{:keys [file line]} (meta var)
        file (slurp file)
        lines (->> file
                   str/split-lines
                   (drop (dec line)))

## fsm.clj
;; Implementation
;; ==============
(defn- return
  [base stack]
  (reduce (fn [acc f]
            (f acc))
          base
          stack))

(defn run-fsm
	<!DOCTYPE html>
	<html>
	<head>
	<meta charset="UTF-8">
	</head>

	<body>
	<div>
	<center>
	<h3>Lisp.js</h3>
	#!/usr/bin/python
	"""
	Download a specific folder from a github repo:
	gitget.py https://github.com/divs1210/kilvish/tree/master/examples/bricksnball
	"""
	__author__ = 'Divyansh Prakash'

	import sys
	import subprocess
	(ns transducers
	"Learn transducers by implementing them."
	(:refer-clojure :exclude [map filter transduce sequence]))

	(comment
	"Let's forget, for the sake of this experiment, about laziness in Clojure.
	We can implement eager versions of Clojure's `map` and `filter` functions as follows:")

	(defn map
	[f coll]
	(ns maya)

	(defmacro math->
	" (math-> 1 + 5 * 2 / 3) ;=> (-> 1 (+ 5) (* 2) (/ 3)) ;=> 4 "
	[exp & f-x-pairs]
	(if (even? (count f-x-pairs))
	`(-> ~exp
	~@(for [[f x] (partition 2 f-x-pairs)]
	(list f x)))
	(throw (Exception. "f-x-pairs should be even."))))
	(ns calculus)

	(defonce ^:const dx 0.00001M)

	(defn df
	"Returns the derivative of f."
	[f]
	(fn [x]
	(/ (- (f (+ x dx)) (f x))
	dx)))
	class Var(object):
	def __init__(self, name):
	self.name = name

	def __repr__(self):
	return self.name

	class Lam(object):
	def __init__(self, bind, expr):
	self.bind = bind
Name	Type
Inputs	Any
Output	Any
Program	Text
Compiler	Program => CompiledProgram
	(ns futamura
	(:require [clojure.string :as str]))

	;; ========= util =====================
	(defn get-source-code [var]
	(let [{:keys [file line]} (meta var)
	file (slurp file)
	lines (->> file
	str/split-lines
	(drop (dec line)))
	;; Implementation
	;; ==============
	(defn- return
	[base stack]
	(reduce (fn [acc f]
	(f acc))
	base
	stack))

	(defn run-fsm