jeremyheiler

IN: scratchpad 1 0 >

--- Data stack:
t
IN: scratchpad [ "true" ] [ "false" ] if

--- Data stack:
"true"
IN: scratchpad 

jeremyheiler

USING: kernel math math.functions sequences ;
IN: euler1

: euler1 ( x -- y )
    iota [ dup [ 3 divisor? ] [ 5 divisor? ] bi or [ drop 0 ] unless ] map-sum ;

jeremyheiler

import java.net.URI;
import java.nio.file.Files;
import java.nio.file.Paths;

public class Main {
    public static void main(String[] args) throws Exception {
        System.out.println(new String(Files.readAllBytes(Paths.get("/foo.txt")), "UTF-8"));
    }
}

jeremyheiler

user> (defn foo [& {:keys [bar] :or {bar 1}}] bar)
#'user/foo
user> (foo)
1
user> (foo :baz 2)
1
user> (foo :bar 2)
2

jeremyheiler

// var foo = bar = 42;
{
    "type": "Program",
    "body": [
        {
            "type": "VariableDeclaration",
            "declarations": [
                {
                    "type": "VariableDeclarator",
                    "id": {

jeremyheiler

;; javascripty
(var foo 42)
(var inc (function (x) (+ x 1)))
(function dec (x) (- x 1))

;; clojurey
(def foo 42)
(def inc (fn [x] (x + 1)))
(defn dec [x] (- x 1))

jeremyheiler

(defmacro apply (f arr)
  `(f ~@arr))


(apply str ["foo" "bar" "baz"])

;; macroexpands to:

(str "foo" "bar" "baz")

jeremyheiler

; Missionaries and Cannibals

;-------------------------------------------------------------------------------
; main method

( defmethod mc ()
  ( establish-operators )
  ( setup )
  ( solve )
)

jeremyheiler

#include <string.h>
#include <stdio.h>
#include <stdlib.h>

#define BUFFER_SIZE 5

struct reqdata
{
        char *data;
        size_t len;

jeremyheiler

#include <stdio.h>
#include <errno.h>

int main(int argc, char **argv)
{
    if (argc == 1) return 0;
    if (argc == 2) {
        char *filename = argv[1];
        FILE *fp = fopen(filename, "r");
        if (!fp) {