This file contains 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
namespace BooGtkTest | |
import System | |
import Gtk | |
import Cairo | |
class DrawingTestWidget(DrawingArea): | |
public def constructor(): | |
self.ExposeEvent += ExposeHandler |
This file contains 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
Newsqueak2 | |
'Langexplr | |
' | |
class ShapesExperiment usingLib: platform = ( | |
"A small experiment for using Hopscotch shape classes ." | |
| | |
CanvasDependent = platform CanvasDependent. | |
Presenter = platform HPresenter. | |
Subject = platform Subject. |
This file contains 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
class NewspeakLexer(RegexLexer): | |
""" | |
For `Newspeak <http://newspeaklanguage.org/>` syntax. | |
""" | |
name = 'Newspeak' | |
filenames = ['*.ns2'] | |
aliases = ['newspeak', ] | |
mimetypes = ['text/x-newspeak'] |
This file contains 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
Newsqueak2 | |
'LangexplrExperiments | |
' | |
class FFIExperiments usingLib: platform = ( | |
"Experiment for calling libcurl" | |
| | |
Transcript = platform Transcript. | |
Alien = platform Alien. | |
Callback = platform Callback. |
This file contains 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
let rec MultiPartition aList (p:'a -> 'a -> bool) results = | |
match aList with | |
| x::rest -> | |
let equivalent,newRest = | |
List.partition | |
(fun e -> p x e) | |
rest | |
in MultiPartition newRest p ((x::equivalent)::results) | |
| [] -> results |
This file contains 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
+/ ((_1 * i. 2) (|. "0 1) ((p1 (*"_ 0) p2) (,"1 0) 0)) |
This file contains 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
polymulti =: dyad : '+/ (((_1 * i. #y) (|. "0 1) ((x (*"_ 0) y) (,"1 1) ( ( (#y) - 1) $ 0))) , 0)' |
This file contains 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
package main | |
import "fmt" | |
type Environment struct { | |
bindings map[string] SExp | |
} | |
func (e Environment) Lookup(name string) SExp { | |
var result SExp; |
This file contains 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
namespace LangexplrExperiments | |
open System.Drawing | |
open System.Drawing.Imaging | |
module ImageProcExperiments = begin | |
let Load24BitImageData (fileName:string) = | |
using(new Bitmap(fileName)) | |
(fun bm -> | |
if bm.PixelFormat <> PixelFormat.Format24bppRgb then |
This file contains 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
namespace LangexplrExperiments | |
open System.Drawing | |
open System.Drawing.Imaging | |
open Microsoft.FSharp.Math | |
module ImageProcExperiments = begin | |
let Load24BitImageData (fileName:string) = | |
using(new Bitmap(fileName)) | |
(fun bm -> |
OlderNewer