fogus

; source https://github.com/woodrush/sectorlisp-examples/blob/main/lisp/basic.lisp
; Common Lisp translation: [email protected], 2022
; https://gist.github.com/lispm/a2f56a1a6dc5599a039eb7134d99cd4a

(defun basic-example ()
  (BASICINTERPRETER
    (QUOTE (
	    (10   REM FIND AND PRINT PRIME NUMBERS BELOW N_MAX.   )
	    (20   LET N_MAX = (1 1 1 1 1   1 1 1 1 1   1 1 1 1 1) )
	    (30   LET I = (1 1)                                   )

fogus

;; LISP-2 acting like LISP-1 (by Ron Garrett)

(defmacro define (name&args &body body)
  (let ((name (car name&args))
        (args (cdr name&args)))
    `(defun ,name ,args
       (flet ,(mapcar (lambda (arg) `(,arg (&rest args) (apply ,arg args)))
                      args)
         ,@body))))
    

fogus

CFLAGS=-std=c99 -pedantic -Wall -Werror
.PHONY: run forth

run: forth
	./forth test.fs

forth: forth.c
	$(CC) $(CFLAGS) -o forth forth.c

fogus

#include <stdio.h>
#include <string.h>
#include <assert.h>
FILE *in; long M[1<<24]={0}, *D, *R, H=0x130000, IP=0, T;
long getu() { long t, h =  getc(in);         if (h < 0xC0) return h;
    t = ((h&0x1F) << 6) | (getc(in) & 0x3F); if (h < 0xE0) return t;
    t = ( t       << 6) | (getc(in) & 0x3F); if (h < 0xF0) return t;
    t = ( t       << 6) | (getc(in) & 0x3F); return t & 0x1FFFFF; }
void putu(long c) { if (c < 0x80) { putchar(c); return; }
    if (c < 0x7FF) { putchar(0xC0|(c>>6)); } else {

fogus

// v is vector testing equiv
// obj is RHS operand, potentially infinite seq

        else if(obj instanceof List)
                {
                Collection ma = (Collection) obj;

                if(ma instanceof Counted)
                    if(ma.size() != v.count())
                        return false;

fogus

//  Tiny FORTH by  T. NAKAGAWA   2004/07/04-10,7/29,8/5-6

/*
  Tiny FORTH
  Experimental Forth for Arduino
  T. Nakagawa
  2004/07/10
*/

#include <stdio.h>

fogus

(defn- spec-checking-fn
  "Takes a function name, a function f, and an fspec and returns a thunk that
  first conforms the arguments given then calls f with those arguments if
  the conform succeeds. Otherwise, an exception is thrown containing information
  about the conform failure."
  [fn-name f fn-spec]
  (let [fn-spec (@#'s/maybe-spec fn-spec)
        conform! (fn [fn-name role spec data args]
                   (let [conformed (s/conform spec data)]
                     (if (= ::s/invalid conformed)

fogus

(ns clojure.spec.test.alpha
  (:refer-clojure :exclude [test])
  (:require
   [clojure.pprint :as pp]
   [clojure.spec.alpha :as s]
   [clojure.spec.gen.alpha :as gen]
   [clojure.string :as str]))

(in-ns 'clojure.spec.test.check)
(in-ns 'clojure.spec.test.alpha)

fogus

// SIMPL
// A Serial Interpreted Minimal Programming Language
// Inspired by Txtzyme - by Ward Cunningham

// Ken Boak  2013 - 2016

// Filename simpl_2015_32bit_list8
// Requires UART routines  - compiles on Arduino 1.04 

// This is the slim version of simpl that removes all of the Arduino specific routines

fogus

; Tiny FORTH
; T. NAKAGAWA
; 2004/08/02-05

; Additional comments by Ken Boak Jan 2016

;  Register
;  r0: temporary
;  r1-15: input buffer (terminated by 0x00, separated by 0x20)
;  r16: temporary