This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; A CLR port of http://bestinclass.wordpress.com/2009/09/24/chaos-theory-vs-clojure/ | |
; Updated to use Rich Hickey's changes: http://paste.lisp.org/display/87799 | |
; | |
; A WPF app is fired up in another thread. Anything you type in the REPL | |
; is dispatched to the WPF thread and evaluated there. | |
; | |
; Requires the following addition to ClojureCLR's GenDelegate.cs: | |
; public static Delegate CreateFunc(IFn fn) | |
; { | |
; Type delegateType = typeof(Func<>).MakeGenericType(new Type[] { typeof(object) }); |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/* | |
* This is a litle tech demo to demonstrate using clojureCLR in a CLR web app. | |
* | |
* A custom IHttpHandler (ClojureHttpHandler) handles invocation of clojure code, | |
* and a custom IRouteHandler (ClojureRouteHandler) routes requests to the HttpHandler. | |
* | |
* See comments in the code for further detail. | |
* | |
* Cheers, zdam | |
* http://zimpler.com/blog/clojureclr-in-an-asp-net-mvc-app |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
/** | |
* Function#bind(context [, arg1 [, arg2 [, argN]]]) -> Function | |
* - context (Object): Object context to bind to. | |
* - arg1 (?): Optional argument to curry. | |
* | |
* Bind a function to a given `context`. Optionally curry arguments. | |
* | |
* ### Examples | |
* | |
* var new_func = my_func.bind(my_object, "no u"); |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
foo_module = IronRuby.require 'foo' | |
foo_module.Foo.new.bar |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// Example of using F# MailboxProcessor against an HTML5 WebSocket (in Google Chrome) | |
// taken from http://v2matveev.blogspot.com/2010/04/mailboxprocessors-practical-application.html | |
// and then modified to work with the revised WebSocket protocol that includes a set of challenge bytes. | |
// The main changes are in the handshake function. | |
// Have a look at the http://nugget.codeplex.com for example WebSocket code in C#, on which I based the | |
// challenge processing code. | |
open System | |
open System.IO | |
open System.Linq |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
module ComMonad | |
//type ComOp<'T> = (unit -> 'T) | |
let private runCom t = t() | |
type Com = | |
static member Run t = runCom t | |
let private result t = (fun () -> t) | |
let private delay (f:unit->unit->'a) = (fun() -> f()()) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
type 'a Outcome = { | |
Value: 'a | |
Probability : BigRational } | |
type 'a Distribution = 'a Outcome seq | |
// P(A AND B) = P(A | B) * P(B) | |
let bindD (dist:'a Distribution) (f: 'a -> 'b Distribution) = | |
dist | |
|> Seq.map (fun p1 -> |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?php | |
namespace CHH; | |
trait MetaObject | |
{ | |
protected static $__metaClass; | |
static function setMetaClass(MetaClass $metaClass) | |
{ |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
from geventwebsocket.handler import WebSocketHandler | |
from gevent.pywsgi import WSGIServer | |
from flask import Flask, request, render_template | |
app = Flask(__name__) | |
@app.route('/') | |
def index(): | |
return render_template('index.html') |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env python | |
# coding: utf-8 | |
""" | |
Python web handler test | |
~~~~~~~~~~~~~~~~~~~~~~~ | |
Detect web handler: mod_wsgi, fast_CGI, mod_python or CGI and display many informations | |
You should check if the shebang is ok for your environment! |
OlderNewer