Skip to content

Instantly share code, notes, and snippets.

View ihodes's full-sized avatar

Isaac Hodes ihodes

View GitHub Profile
(defn sum-nums-mod-3-5
[n]
(reduce +
(filter #(or (zero? (mod % 3)) (zero? (mod % 5)))
(range n))))
(defn rpn
[& exprs]
(cond (one? (count exprs)) (first exprs)
(zero? (count exprs)) 0
:else
(let [nums (take-while number? exprs)
etc (drop (count nums) exprs)
op (first etc)]
(recur (cons (apply op nums)
(rest etc))))))
;; want this behavior
(defn iof
[val coll]
(lazy-seq
(loop [coll coll idx 0]
(cond
(empty? coll) '()
(= val (first coll)) (cons idx (recur val (rest coll) (inc idx)))
:else (recur val (rest coll) (inc idx))))))
#include <stdio.h>
#include <time.h>
#include <stdlib.h>
int main(int argc, char **argv){
long iterations = atoi(argv[1]);
double sum = 0;
long ans, i, j = 0;
long seed = time((time_t *) NULL);
(defn sum
[& s]
(reduce + s))
(defn prod
[& s]
(reduce * s))
(defn sigma
[s f]
(defn f [n]
(lazy-seq
(loop [n n]
(if (zero? n) []
(cons n (f (dec n))))))
(def groups {:particles
[#'chemicalj.atom/make-atom
#'chemicalj.molocule/make-molocule etc]
{:simulations […]})
(use-groups …intern the vars in the given vector(s) into the current ns)
from string import split
import sys
# supports ^, $, |, c (literal), . (wildcard), *, +, ?
# !supports char classes, escaped specials, grouping
def match(regexp, text):
if '|' in regexp:
for r in split(regexp, '|'):
if match(r, text): return True
@ihodes
ihodes / partial.el
Created July 4, 2011 03:34
partial attempt
(defun partial (f &rest args)
(lambda (&rest mrgs)
(apply 'f (append args mrgs))))
(doto frame
(.setDefaultCloseOperation JFrame/EXIT_ON_CLOSE)
(.setFocusable true)
(init-jframe-key-bindings!
{"RIGHT" [:next-view to-next-view]
"LEFT" [:prev-view to-previous-view]