vito

$ the
> a = 0
> { a = a + 1; a print } do -- normal; assigns a only within the block
1
> a
0
> action = { a = a + 1; a print }
> action scope do: action -- now executing it as part of its original scope
1
<prototype (delegates to <bottom>)

vito

$ the
> load: "prelude/list.the"
> 0 .. 10
[0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
> 10 .. 0
[10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 0]
> "foo" .. "bar"
"foobar"

vito

-- starts a match of n volleys
volley: (n: Integer) = {
    -- start up the ponger
    proc = { notify |
        pong: notify
    } spawn-with: [self]

    -- start up the pinger
    { ping: n ponger: proc } spawn
} do

vito

       . |
|  .      
       . |
|  .      
       . |
|  .      
       . |
|  .      
       . |
|  .      

vito

package main

import ("fmt"; "reflect");

type Element struct {
    name string;
    contents []string;
    attributes map[string]string;
}

vito

[Session]
session.save_handler = files
session.use_cookies = 1
session.name = PHPSESSID
session.auto_start = 0
session.cookie_lifetime = 0
session.cookie_path = /
session.cookie_domain =
session.cookie_httponly = 
session.serialize_handler = php

vito

 Component  |   Cost   | Details          | URL
-----------------------------------------------------
   Tubing   | $ 24.24  | 10'              | http://www.mcmaster.com/#9362t3/=em9a6
   Clamps   | $ 17.80  | 20x              | http://www.koolance.com/water-cooling/product_info.php?product_id=232
 GPU Block  | $ 99.99  | GTX 285 Card     | http://www.koolance.com/water-cooling/product_info.php?product_id=777
 CPU Block  | $ 82.99  | i7 (LGA 1366)    | http://www.koolance.com/water-cooling/product_info.php?product_id=755
 Resevoir   |          |                  |
 & Pump     | $ ---.-- | 5.25" Bay        | http://www.koolance.com/water-cooling/product_info.php?product_id=280
 - Nozzles  | $ -.--   | 10mm ID Barb     |
 - Coolant  | $ --.--  | High-perf. 700mL |

vito

Prelude> ['A'..]
"ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~\DEL\128\129\130\131\132\133\134\135\136\137\138\139\140
\141\142\143\144\145\146\147\148\149\150\151\152\153\154\155\156\157\158\159\160\161\162\163\164\165\166\167\168\169\170
\171\172\173\174\175\176\177\178\179\180\181\182\183\184\185\186\187\188\189\190\191\192\193\194\195\196\197\198\199\200
\201\202\203\204\205\206\207\208\209\210\211\212\213\214\215\216\217\218\219\220\221\222\223\224\225\226\227\228\229\230
\231\232\233\234\235\236\237\238\239\240\241\242\243\244\245\246\247\248\249\250\251\252\253\254\255\256\257\258\259\260
\261\262\263\264\265\266\267\268\269\270\271\272\273\274\275\276\277\278\279\280\281\282\283\284\285\286\287\288\289\290
\291\292\293\294\295\296\297\298\299\300\301\302\303\304\305\306\307\308\309\310\311\312\313\314\315\316\317\318\319\320
\321\322\323\324\325\326\327\328\329\330\331\332\333\334\335\336\337\338\339\340\341\342\343\344\345\346\347\348\349\350
\351\352\353\354\355\356\357\3

vito

import Data.List (isPrefixOf)

(%) :: String -> [String] -> String
"" % _ = ""
s % xs | "%s" `isPrefixOf` s = next ++ (drop 2 s) % queue
       | otherwise = (head s) : (tail s) % xs
       where next = head xs
             queue = tail xs

main = print ("Hello, %s! My name is %s!" % ["World", "Alex"])

vito

data Gender = Male | Female

data Person = Person { name :: String
                     , gender :: Gender
                     , doSomething :: Bool -> Bool
                     }

bill = Person { name = "Bill"
              , gender = Male
              , doSomething = not