sshine

import Prelude hiding (exp)
import Data.Char
import Text.ParserCombinators.ReadP

data Exp = Plus Exp Exp
         | Pow Exp Exp
         | Num Int
         deriving (Show)

sshine

--
-- Skeleton for Salsa interpreter
-- To be used at the exam for Advanced Programming, B1-2013
--

module SalsaInterp
       -- (Position, interpolate, runProg)
where

import SalsaAst

sshine

module AST where

type Program = [Command]
data Command = Command Expr [Expr]
data Expr = Str Ident
          | Num Integer
          | List [Expr]

type Ident = String

sshine

foo :: IO (Maybe Socket) -> IO () -> IO (Maybe Socket)
foo sock action = do
  actionHandler <- tryIOError action
  return $ either (\err -> Nothing) (\sock' -> sock <|> Just sock') actionHandler

performSocketAction2 :: Socket -> IO () -> IO (Maybe Socket)
performSocketAction2 sock action = foo (Just sock) action

makeSocket :: IO (Socket) -> IO (Maybe Socket)

sshine

          $.ajax({ url: "foo.csv", dataType: "text" })
              .done(function(data) {
                  fetchPostTags(data);
                  $.ajax({ url: "bar.csv", dataType: "text" })
                      .done(fetchPostsComments);
                      .fail(function(failure) {
                          updateStatus("Failed to load posts-comments.csv");
                          console.log(failure);
                      });

sshine

{-# LANGUAGE TupleSections #-}
import Data.Char
import Control.Monad
import Control.Applicative hiding (many)
import Text.ParserCombinators.ReadP

import Test.QuickCheck

data Exp = Add Exp Exp
         | Sub Exp Exp

sshine

## Ignore Visual Studio temporary files, build results, and
## files generated by popular Visual Studio add-ons.

# User-specific files
*.suo
*.user
*.sln.docstates

# Build results
[Dd]ebug/

sshine

let ghciEscape arg = "'" ++ concatMap (\c -> if c == '\'' then "'\"'\"'" else [c]) arg ++ "'"
:def! hoogle return . (":! hoogle --color --count=20 " ++) . ghciEscape
:def! doc return . (":! hoogle --color --info " ++) . ghciEscape

:set prompt "\ESC[1;34m%s\n\ESC[0;34mλ> \ESC[m"

sshine

import Data.Char
import Control.Monad
import Control.Applicative

para :: (a -> b -> [a] -> b) -> b -> [a] -> b
para f e [] = e
para f e (x:xs) = para f (f x e xs) xs

main = do

sshine

            using (WebClient webClient = new WebClient())
            {
                webClient.Headers.Add("Content-Type", "application/x-www-form-urlencoded");
                byte[] request = System.Text.Encoding.UTF8.GetBytes("payload=" + JsonConvert.SerializeObject(message));
                byte[] response = webClient.UploadData(this._webHookUri, "POST", request);
            }