vito

<?php
	class Quote extends Feathers implements Feather {
		public function __construct() {
			$this->setField(array("attr" => "quote",
			                      "type" => "text_block",
			                      "rows" => 5,
			                      "label" => __("Quote", "quote"),
			                      "bookmarklet" => "selection"));
			$this->setField(array("attr" => "source",
			                      "type" => "text_block",

vito

f :: String -> [String]
f x = [x ++ "!", x ++ "."]

["Hi"] >>= f >>= f
-- is:
(["Hi"] >>= f) >>= f

-- Which, according to the Prelude implementation of the List monad...:

instance  Monad []  where

vito

["Hi!!"]

vito

$HTTP["host"] =~ "yoursite\.com" {
  server.error-handler-404 = "/path/to/chyrp/index.php"
}

vito

True ? x = const x
False ? _ = id
main = print $ False ? "Hi!" $ "Boo!"

vito

Haskell $ ./sudoku test # Takes roughly 50 seconds.
tst1:
  | 5 |   | 1 |   |   |   |   |  
4 |   |   | 6 |   | 2 |   |   |  
  | 6 |   |   |   | 8 | 1 | 7 |  
7 | 4 |   | 8 |   |   |   |   |  
  |   |   |   |   |   |   |   |  
  |   |   |   |   | 3 |   | 5 | 9
  | 1 | 3 | 7 |   |   |   | 2 |  
  |   |   | 4 |   | 6 |   |   | 8

vito

todo.hs $ ghc todo.hs -o todo
todo.o: In function `rJc_info':
(.text+0x189): undefined reference to `bytestringzm0zi9zi1zi4_DataziByteString_zdf3_closure'
todo.o: In function `sJG_info':
(.text+0x1c5): undefined reference to `bytestringzm0zi9zi1zi4_DataziByteStringziChar8_lines_closure'
todo.o: In function `sJN_info':
(.text+0x2b2): undefined reference to `bytestringzm0zi9zi1zi4_DataziByteStringziChar8_unlines_closure'
todo.o: In function `sJP_info':
(.text+0x314): undefined reference to `bytestringzm0zi9zi1zi4_DataziByteString_writeFile_closure'
todo.o: In function `sJB_info':

vito

data Gender = Male | Female

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

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

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

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