maruks

#lang racket

(define tree-1 '(1 (2 (3 4) 5) (6 7)))

(define (tree-map tree fn)
  (if (list? tree)
      (map (lambda (x) (tree-map x fn)) tree)
      (fn tree)))

(define foo (tree-map tree-1 (lambda (x) (* x x))))

maruks

#lang racket

(define t 0)

(define (reset)
  (set! t 0))

(define (f n)
  (let ((p t))
    (set! t n)

maruks

(define-syntax thread-first
  (syntax-rules ()
    [(_ expr (fn args ...))
	  (fn expr args ...)]
    [(_ expr fn)
     (fn expr)]))

(define-syntax cond->
  (syntax-rules ()
    [(_ expr test fn)

maruks

(define-syntax (aif stx)
  (syntax-case stx ()
    [(_ expr then else)
     (with-syntax ([it (datum->syntax stx 'it)] )
       #'(let ((it expr))
	         (if it then else)))]))

maruks

#lang racket

(define (mlist . elem)
  (mcons (car elem)
	 (if (null? (cdr elem))
	     '()
	     (apply mlist (cdr elem)))))

;; has-cycle

maruks

isSorted :: Tree -> Bool
isSorted t = isSortedTree t minBound maxBound

insert :: Tree -> Int -> Tree
insert Leaf e = Node e Leaf Leaf
insert n@(Node v l r) e
  | v < e = Node v l (insert r e)
  | v > e = Node v (insert l e) r
  | otherwise = n

maruks

-module(main).
-define(WINDOW_SIZE, 200000).
-define(MSG_COUNT, 1000000).
-define(MSG_SIZE, 1024).

-export([main/0]).

push_message(N) ->
    Start = erlang:monotonic_time(),
    Bin = list_to_binary(lists:duplicate(?MSG_SIZE, N rem 255)),

maruks

-module(main).
-define(WINDOW_SIZE, 200000).
-define(MSG_COUNT, 1000000).
-define(MSG_SIZE, 1024).

-export([main/0]).

push_message(N, Tab) ->
    Start = erlang:monotonic_time(),
    Bin = list_to_binary(lists:duplicate(?MSG_SIZE, N rem 255)),

maruks

-module(bits).

-export([bits/1, bits2/1, bits3/1]).

bits_tail_rec(<<B:1, Rest/bitstring>>, A) ->
    bits_tail_rec(Rest,B + A);
bits_tail_rec(<<>>, A) ->
    A.

bits(N) ->

maruks

nub([]) ->
  [];
nub([X|Xs]) ->
  [X | nub (lists:filter(fun (E) -> E =/= X end, Xs)].