rileylev

(define-syntax-parameter yield
  (lambda (stx)
    (syntax-violation 'yield "~yield~ is undefined  outside of a generator" stx)))

(define-syntax-rule (generator body ...)
  (let ()
    (define yield-tag (make-prompt-tag))
    (define (yield% . returns)
      (apply abort-to-prompt yield-tag returns))
    (define (thunk)

rileylev

(define yield (prompt-tag))

(define (count-helper)
  (let loop ((n 0))
    (abort-to-prompt yield n)
    (loop (1+ n))))

(define this-step count-helper)

(define (count)

rileylev

(defprotocol WEIGHTED_GRAPH
  (nodes [graph])
  (neighbors [graph node])
  (weight [graph from to]))

(defn dijkstra
  [start goal graph]
  (let [nodes (nodes graph)
        neighbors #(neighbors graph %)
        weight #(weight graph %1 %2)]

rileylev

var tinyurl = "http://tinyurl.com/"
var urls = []

var encode = function(longUrl){
    urls.push(longUrl)
    return tinyurl+(urls.length-1)
};

var decode = function(shortUrl){
    var index = Number(shortUrl.substring(tinyurl.length))

rileylev

#define WM_GENSYM(name) GENSYM_##name##__COUNTER__
#define WM_WITH(initializer,body) {auto WM_GENSYM() = initializer; body}

rileylev

#include <iostream>

int main()
{
  std::cout << "hello world\n";
  std::getchar();
  return 0;
}

rileylev

#include <utility>

template <class F>
struct Y{
  F f;
  Y(F _f) : f{_f} {}
  template<class...arg_t>
  auto operator()(arg_t&&...arg) {return f(*this,std::forward<arg_t>(arg)...);}
};