killme2008

(ns cljcomputionbook.tm
  (:require [clojure.string :as cs]))

;;磁带
(defrecord Tape [left middle right blank]
  Object
  (toString [tape]
    (pr-str tape)))

(defmethod print-method Tape [tape writer]

killme2008

defmodule Counter do
  use GenServer

  def start_link(init_value \\ 0, opts \\ []) do
    GenServer.start_link(__MODULE__, init_value, opts)
  end
  ## client apis
  def get(c) do
    GenServer.call(c, {:get})
  end

killme2008

defmodule CounterSupervisor do
  use Supervisor

  def start_link(v \\ 0) do
    Supervisor.start_link(__MODULE__, v)
  end

  @counter_name Counter
  #supervisor callback
  def init(v) do

killme2008

defmodule MyUnless do
  defmacro unless(clause, then_clause, else_clause \\ nil) do
    quote do
      if !unquote(clause) do
        unquote(then_clause)
      else
        unquote(else_clause)
      end
    end
  end

killme2008

defprotocol Blank do
  @doc "Returns true if data is considered blank/empty"
  @fallback_to_any true
  def blank?(data)
end

defimpl Blank, for: Any do
  def blank?(_), do: false
end

killme2008

defmodule MySigils do
  def sigil_i(string, []), do: String.to_integer(string)
  def sigil_i(string, [?n]), do: -String.to_integer(string)
end

killme2008

y = fn (f) ->
  (fn (x) ->
    f.(x.(x))
  end).(
    fn (x) ->
      f.(x.(x))
    end)
end       

z = fn (f) ->

killme2008

(defn unfold 
  "Creates a lazy sequence based on start accumulator and step functon.
   The step function transform the state as below:
     step(value) -> [current-value, next-accumulator]
   For example:
        (unfold 5 (fn [n]
            (when-not (zero? n)
              [n (dec n)])))

  "

killme2008

defmodule Chain do
  def counter(pid) do
    receive do
      n ->
        send pid, n+1
    end
  end

  def create_processes(n) do
    last = Enum.reduce 1..n, self(), fn (_, pid) ->

killme2008

defmodule Pipe do
  defmacro a|>b do
    pos  = tuple_size(b) -1
    Macro.pipe(a, b, pos)
  end

  defmacro __using__(_extras) do
    quote do
      import Kernel, except: [|>: 2]
      import Pipe