darkf

import operator

def do_op(op, lhs, rhs):
  return \
  {'+': operator.add,
   '-': operator.sub,
   '*': operator.mul}[op](lhs, rhs)

def rpn(lst, stack):
  if lst == []:

darkf

-module(rpn).
-export([eval/2, op/1, is_op/1, start/0]).

%% I hope I never have to touch Erlang again

op("+") -> fun(L,R) -> L+R end;
op("*") -> fun(L,R) -> L*R end.

is_op(X) -> X == "+" orelse X == "*".

darkf

-module(prog).
-export([main/0, take/2, drop/2, par/2, splitAt/2, product/1, manager/3, worker/3, fact/2]).

take(0, _) -> [];
take(_, []) -> [];
take(N, Lst) ->
  [hd(Lst) | take(N-1, tl(Lst))].

drop(0, Lst) -> Lst;
drop(_, []) -> [];

darkf

-module(prog).
-export([fact/2, worker/3, manager/1, main/0]).

fact(N, Start) -> lists:foldl(fun(L, R) -> L*R end, 1, lists:seq(Start, N)).

worker({Start, End}, I, Pid) ->
  R = fact(End, Start),
  Pid ! {finished, I, R}.

manager(Queue) ->

darkf

type Atom =
  | Num of int
  | Op of char

let opToProc = function
  | '+' -> (+)
  | '*' -> (*)
  | _ -> failwith "invalid operation"

let rec evalRPN (expr : Atom list) (stack : int list) =

darkf

#lang racket

(define (op? e)
  (member e '(+ *)))

(define (op->procedure op)
  (case op
    [(+) +]
    [(*) *]))

darkf

def parse(expr):
  lst = []

  for line in expr.split('\n'):
    s = line.split(' -> ')
    if len(s) == 1:
      lst.append(('def', line))
    else:
      lst.append(('imply', s[0], s[1]))

darkf

#include <stdio.h>
#include <stdbool.h>
#include <math.h>
#include <string.h>

#define n 100
static bool A[n];

int main() {
  int i, j;

darkf

struct vec2 (x, y);

def vec2_add(a, b) {
  vec2(a.x + b.x, a.y + b.y);
}

def main() {
  x = [1, 2, 3];
  print("hi! length of x is #{len(x)}");

darkf

type actor = {mutable hp : int; name : string}
type battle = {enemy : actor; mutable turn : int}
type attack = Slash of int

let player = {hp=100; name="Player"}

let runAttack by who atk =
  match atk with
  | Slash dmg -> printfn "%s slashes %s for %d" by.name who.name dmg; who.hp <- who.hp - dmg