JustinSDK

• Swift 語言入門（一）開發環境安裝與 Hello World
• SwiftTaiwan 台灣中文網
• Swift Taiwan
• Swift根本就是Objective-C的包裝版而已
• 在終端機開啟Swift來玩
• Swift - Generic code 泛型功能
• 蠻佩服那些沒有寫過該語言三、五萬行程式碼的人, 就可以馬上說它到底是好是壞...
• 搶先學! Swift 語法亮點簡介
• Swift Taipei User Group
• Swift - 基本Control指令小抄

JustinSDK

function(sprite, spriteContainer) {
    var spriteMouseDowns = Observable.fromEvent(sprite, "mousedown"),
        spriteContainerMouseMoves = Observable.fromEvent(spriteContainer, "mousemove"),
        spriteContainerMouseUps = Observable.fromEvent(spriteContainer, "mouseup"),
        spriteMouseDrags =
            // For every mouse down event on the sprite...
		spriteMouseDowns.
		    flatMap(function() {
		        return spriteContainerMouseMoves;
		    }).takeUntil(spriteContainerMouseUps);

JustinSDK

function(sprite, spriteContainer) {
    // All of the mouse event sequences look like this:
    // seq([ {pageX: 22, pageY: 3423, offsetX: 14, offsetY: 22} ,,, ])
    var spriteMouseDowns = Observable.fromEvent(sprite, "mousedown"),
        spriteContainerMouseMoves = Observable.fromEvent(spriteContainer, "mousemove"),
        spriteContainerMouseUps = Observable.fromEvent(spriteContainer, "mouseup"),        
        // Create a sequence that looks like this:
        // seq([ {pageX: 22, pageY:4080 },,,{pageX: 24, pageY: 4082},,, ])
        spriteMouseDrags =
            // For every mouse down event on the sprite...

JustinSDK

import Unsafe.Coerce

y :: (a -> a) -> a
y = \f -> (\x -> f (unsafeCoerce x x))(\x -> f (unsafeCoerce x x))

-- Ref: [Y Combinator in Haskell](http://stackoverflow.com/questions/4273413/y-combinator-in-haskell)
-- a fibonacci example
main = putStrLn $ show $ y (\fact -> \n -> if n < 2 then 1 else n * fact (n - 1)) 5

JustinSDK

data Map k v = Empty | Cm (k, v) (Map k v) 

fromList :: [(k, v)] -> Map k v
fromList [] = Empty
fromList (x:xs) = Cm x (fromList xs)

findValue :: (Eq k) => k -> Map k v -> Maybe v
findValue key Empty = Nothing
findValue key (Cm (k, v) xm) =
    if key == k then Just v else findValue key xm

JustinSDK

instance Comp Integer where
    comp x y = x - y

instance (Comp a) => Comp (Maybe a) where
    comp (Just x) (Just y) = comp x y
    comp (Just _) Nothing = 1
    comp Nothing (Just _) = -1
    comp Nothing Nothing = 0

quicksort :: Comp a => [a] -> [a]

JustinSDK

data Customer = Customer String Int deriving Show
data Vip = Vip Customer Float deriving Show

class CustBehavior c where
    custAction :: Show c => c -> String

class CustBehavior c => VipBehavior c where
    vipAction :: Show c => c -> String

instance CustBehavior Customer where

JustinSDK

module Tree
(
    Tree,
    fromList,
    singleNode,
    insert,
    node,
    toList
) where

JustinSDK

module Set
(
    fromList,
    intersection,
    union
) where

import qualified Tree

data Set a = Set (Tree.Tree a)

JustinSDK

while :: Bool -> IO () -> IO ()
while cond value = do
   if cond then value
           else return ()

forever' :: IO a -> IO ()
forever' value = do
    while True $ do
        value
        forever' value