jacius

% rustc --version
rustc 1.10.0 (cfcb716cf 2016-07-03)

% cargo run
   Compiling scary-compiler-message v0.1.0 (file:///Users/jac/scary-compiler-message)
src/main.rs:27:36: 27:40 error: no method named `iter` found for type `(specs::Storage<Foo, std::sync::RwLockReadGuard<'_, specs::Allocator>, std::sync::RwLockReadGuard<'_, specs::MaskedStorage<Foo>>>, specs::Storage<Bar, std::sync::RwLockReadGuard<'_, specs::Allocator>, std::sync::RwLockReadGuard<'_, specs::MaskedStorage<Bar>>>)` in the current scope
src/main.rs:27     for (foo, bar) in (foos, bars).iter() {
                                                  ^~~~
src/main.rs:27:36: 27:40 note: the method `iter` exists but the following trait bounds were not satisfied: `specs::Storage<Foo, std::sync::RwLockReadGuard<'_, specs::Allocator>, std::sync::RwLockReadGuard<'_, specs::MaskedStorage<Foo>>> : specs::Join`, `specs::Storage<Bar, std::sync::RwLockReadGuard<'_, specs::Allocator>, std::sync::RwLockReadGuard<'_, specs::MaskedStorage<Bar>>> : specs::Join`, `spe

jacius

#|

Benchmark for various ways of representing C structs in CHICKEN
Scheme. Compile with different flags to switch the representation.

Allocate memory in non-managed memory:

  csc -D use-alloc -O3 -profile ./benchmark-float.scm
  ./benchmark-float 2> profile-alloc.txt

jacius

pub struct Heap<T> {
    data: Vec<T>
}

impl<T: PartialOrd> Heap<T> {
    /// Create a new empty heap.
    pub fn new() -> Heap<T> {
        Heap { data: Vec::<T>::new() }
    }

jacius

Another example of using Scheme to generate HTML and JavaScript. This example is based on the Three.js "Creating a scene" tutorial.

You will need:

• Chicken Scheme
• html-tags: chicken-install html-tags
• spock: chicken-install spock
• Make
• curl (or just download three.min.js yourself)

jacius

Simple example of using Chicken Scheme to generate HTML and JS, using the html-tags and spock eggs. This example is based on the MDN canvas tutorial.

You will need:

• Chicken Scheme
• html-tags: chicken-install html-tags
• spock: chicken-install spock
• Make

Run make to generate the HTML and JS files, then open "index.html" in a web browser.

jacius

generated = hello.html hello.js spock-runtime-min.js

all: $(generated)

clean: 
	rm $(generated)


%.html: %.html.scm
	csi -s $< > $@

jacius

;; I'm sure this could be improved a lot! I'm still a lisp newbie.

(defun merge-plists (&rest plists)
  "Merge all the given plists into a new plist. The new plist has all
the keys from each plist, with values of keys in later lists
overriding the values of the same keys in earlier plists.
No particular order of key/value pairs is guaranteed.
E.g.:
  > (afw/util:merge-plists '(:a 1 :b 2) '(:a 3 :c 4) '(:d 5))
  (:D 5 :C 4 :A 3 :B 2)"

jacius

window.onload = ->
  paper = Raphael 0, 0, 320, 200
  circle = paper.circle 50, 40, 10
  circle.attr "fill", "#f00"
  circle.node.onclick = -> alert "Stop poking me!"
  window.onkeypress = (ev) ->
    ev = window.event || ev
    switch ev.keyCode
      when 37 then circle.attr( "cx", circle.attr("cx") - 5 )
      when 38 then circle.attr( "cy", circle.attr("cy") - 5 )

jacius

#! /usr/bin/ruby

# Plot random pixels.

require 'rubygame'
include Rubygame

Width = 640
Height = 400

jacius

%r<this is a valid regexp>e.to_s
# That's right.

%r(this one is valid, but...()
it actually closes right here:)i.inspect
# Tricky.

%r[this is valid too]x.clone
# Correct.