skalahonza

    public class ErrorHandlingMiddleware
    {
        private readonly RequestDelegate _next;

        public ErrorHandlingMiddleware(RequestDelegate next)
        {
            _next = next;
        }

        public async Task Invoke(HttpContext context)

skalahonza

-- http://math.feld.cvut.cz/demlova/teaching/jag/cjag812.pdf   cviceni 12.1

automat :: String -> Bool
automat input = automat_h input 0 False

automat2 :: String -> Bool
automat2 input = automat_h2 input ['z'] 1

automat_h :: String -> Int -> Bool -> Bool
automat_h ('a':xs) count False = automat_h xs (count + 1) False 

skalahonza

$apiKey = "your api key"
$gitlabhost = "https://gitlab.yourcompany.com"

$headers = @{
'PRIVATE-TOKEN'="$apiKey"
"Accept-Charset"                = "utf-8"
"Accept"                        = "application/json"
"Content-Type"                  = "application/json; charset=utf-8"
}

skalahonza

harmonicMean :: [Double] -> Double
harmonicMean list = (doubleLength list) / sumo where
	sumo = (sum twisted)
	twisted = (map inv list)

geometricMean :: [Double] -> Double
geometricMean list = (product list) ** (1/(doubleLength list))

arithmeticMean :: [Double] -> Double
arithmeticMean list = (sum list) / (doubleLength list)

skalahonza

module QueueStacks where

type Stack v = [v]

push :: v -> Stack v -> Stack v
push value stack = value:stack

pop :: Stack v -> Stack v
pop [] = []
pop (_:newStack) = newStack

skalahonza

(define first car)
(define second cadr)
(define rest cdr)
(define (third list) (car (cddr list)))
(define fourth cadddr)



(define (push v st)
 (cons v st))

skalahonza

type KeyVal a b = (a, b)
type Map a b = [KeyVal a b]

test = initmap ["a","b","c"] [1,2,3]

myZip (k:ks) (v:vs) = [(k,v)] ++ myZip ks vs
myZip [] [] = []

get_key (a, b) = a
get_val (a, b) = b

skalahonza

(define first car)
(define second cadr)
(define rest cdr)
(define (third list) (car (cddr list)))
(define fourth cadddr)

(define initmap '())

(define test
  (list (list 'a 1) (list 'b 3))

skalahonza

; list of actions
; - n počet disků

; move tower to c
; last stage to 2

(define (hanoi n a b c)
  (cond
    ((eq? n 1) (list(cons a b))) ; jedno patro dám rovnou na b
    (#t (append (hanoi (- n 1) a c b) (list(cons a b))

skalahonza

-- board type definition for game board
type Board = [Int]
initBoard :: Board
initBoard = [5,4,3,2,1]

-- player tpye definition
data Player = P1 | P2 deriving Show
nextP :: Player -> Player 
nextP P1 = P2
nextP P2 = P1