Original text from http://lists.warhead.org.uk/pipermail/iwe/2005-July/000130.html
From: Mark Jason Dominus <mjd@plover.com>
Date: Jul 28, 2005 11:16 PM
Subject: Re: HOP -vs- SICP
Original text from http://lists.warhead.org.uk/pipermail/iwe/2005-July/000130.html
From: Mark Jason Dominus <mjd@plover.com>
Date: Jul 28, 2005 11:16 PM
Subject: Re: HOP -vs- SICP
namespace Example1 | |
open WebSharper | |
open WebSharper.UI.Next | |
open WebSharper.UI.Next.Html | |
open WebSharper.UI.Next.Client | |
[<JavaScript>] | |
module Counter = |
namespace Fable.Import | |
open System | |
open System.Text.RegularExpressions | |
open Fable.Core | |
open Fable.Import.JS | |
type Globals = | |
[<Global>] static member ``global`` with get(): ___React.GlobalStatic = failwith "JS only" and set(v: ___React.GlobalStatic): unit = failwith "JS only" | |
module ___React = |
(* | |
ParserLibrary_v2.fsx | |
Version 2 of the code for a parser library. | |
Related blog post: http://fsharpforfunandprofit.com/posts/understanding-parser-combinators-2/ | |
*) | |
open System |
(* | |
ParserLibrary.fsx | |
Final version of a parser library. | |
Related blog post: http://fsharpforfunandprofit.com/posts/understanding-parser-combinators-3/ | |
*) | |
module TextInput = | |
open System |
(* | |
JsonParser.fsx | |
A JSON parser built from scratch using a combinator library. | |
Related blog post: http://fsharpforfunandprofit.com/posts/understanding-parser-combinators-4/ | |
*) | |
#load "ParserLibrary.fsx" |
open System | |
open System.Windows.Forms | |
open System.Drawing | |
type Action = | |
| Increment | |
| Decrement | |
let form = new Form(Width= 400, Height = 300, Visible = true, Text = "Hello World") |
-- Initial wkhs.cabal generated by cabal init. For further documentation, | |
-- see http://haskell.org/cabal/users-guide/ | |
name: wkhs | |
version: 0.1.0.0 | |
-- synopsis: | |
-- description: | |
license: PublicDomain | |
license-file: LICENSE | |
author: Dmitry Golubovsky |
#lang racket | |
(require rackunit) | |
;; A singly linked list is either | |
;; - NULL | |
;; - pointer to data and a pointer a sll | |
(struct node (data-ptr next-ptr)) | |
(define n4 (node 4 null)) |
#include "TransparentOpenGLComponent.h" | |
using namespace juce; | |
TransparentOpenGLComponent::TransparentOpenGLComponent() | |
{ | |
openGLContext.setComponentPaintingEnabled (true); | |
openGLContext.setRenderer (this); | |
openGLContext.setContinuousRepainting (true); | |
openGLContext.attachTo (*this); |