geekrelief

-- Parsec 3 tutorial code --

-- module Main where -- this isn't necessary

import Text.Parsec
import Text.Parsec.String (Parser) -- type Parser = Parsec String ()
import Text.Parsec.Expr
import qualified Text.Parsec.Token as P
import Text.Parsec.Language (haskellStyle)
import Data.Char

leegao

If you don't care about the explanation, scroll down to find the code, it's 50 some odd lines and written by someone who doesn't know any better. You have been warned.

What it does

This is a very simple proof of concept jitting RPN calculator implemented in python. Basically, it takes the source code, tokenizes it via whitespace, and asks itself one simple question: am I looking at a number or not?

First, let's talk about the underlying program flow. Pretend that you are a shoe connoisseur with a tiny desk. You may only have two individual shoes on that desk at any one time, but should you ever purchase a new one or get harassed by an unruly shoe salesman without realizing that you have the power to say no (or even maybe?), you can always sweep aside one of the two shoes on the desk (the one on the right, because you're a lefty and you feel that the left side is always superior) onto the messy floor, put the other shoe on the right hand side, and then place your newly acquired shoe in

ckirkendall

(use '[clojure.core.match :only [match]])

(defn evaluate [env [sym x y]]
  (match [sym]
    ['Number]   x
    ['Add]      (+ (evaluate env x) (evaluate env y))
    ['Multiply] (* (evaluate env x) (evaluate env y))
    ['Variable] (env x)))
    
(def environment {"a" 3, "b" 4, "c" 5})

stevendborrelli

#include <cuda.h>
#include <stdio.h>


void cudasafe(int error, char* message, char* file, int line) {
        if (error != cudaSuccess) {
                fprintf(stderr, "CUDA Error: %s : %i. In %s line %d\n", message, error, file, line); 
                exit(-1);
        }
}

quchen

13:15 <xQuasar>      | HASKELL IS FOR FUCKIN FAGGOTS. YOU'RE ALL A BUNCH OF 
                     | FUCKIN PUSSIES
13:15 <xQuasar>      | JAVASCRIPT FOR LIFE FAGS
13:16 <luite>        | hello
13:16 <ChongLi>      | somebody has a mental illness!
13:16 <merijn>       | Wow...I suddenly see the error of my ways and feel 
                     | compelled to write Node.js!
13:16 <genisage>     | hi
13:16 <luite>        | you might be pleased to learn that you can compile 
                     | haskell to javascript now

danbst

import System.USB
      ( InterfaceDesc(interfaceEndpoints, interfaceNumber),
	EndpointDesc(endpointAddress),
	DeviceDesc(deviceProductId, deviceVendorId),
	Device,
	Ctx,
	ConfigDesc(configInterfaces),
	withDeviceHandle,
	withDetachedKernelDriver,
	withClaimedInterface,

takeshixx

#!/usr/bin/env python2
"""
Author: takeshix <takeshix@adversec.com>
PoC code for CVE-2014-0160. Original PoC by Jared Stafford (jspenguin@jspenguin.org).

Supportes all versions of TLS and has STARTTLS support for SMTP,POP3,IMAP,FTP and XMPP.
"""

import sys,struct,socket
from argparse import ArgumentParser

MosakujiHokuto

-module(chatroom).
-export([run/1,worker/2,client_listener/2]).

client_listener(Client,Sock) ->
    case gen_tcp:recv(Sock,0) of
	{ok,Pack} ->
	    Client ! {sendmsg,Pack},
	    client_listener(Client,Sock);
	Other ->
	    Other

kachayev

## Alexey Kachayev, 2014
## Link to slides:
## http://goo.gl/n4ylC4

## Basic:
## type Parser = String -> Tree

## Composition
## type Parser = String -> (Tree, String)

david-christiansen

module FizzBuzzC

%default total

-- Dependently typed FizzBuzz, constructively

-- A number is fizzy if it is evenly divisible by 3
data Fizzy : Nat -> Type where
  ZeroFizzy : Fizzy 0
  Fizz : Fizzy n -> Fizzy (3 + n)