wizzup

We couldn’t find that file to show.

wizzup

# สร้าง binary ชื่อ hello
bin_PROGRAMS = hello

# สร้าง hello จาก main.c
hello_SOURCES = main.c

wizzup

wizzup

wizzup

import Data.Maybe

data Rose  a = Rose a [Rose a] deriving Show
newtype Graph a = Graph [(a, Rose a)]

lookupRose :: Eq a => a -> Graph a -> Rose a
lookupRose i (Graph rs) = fromJust $ lookup i rs

fromList :: Eq a => [(a, [a])] -> Graph a
fromList xs = graph where

wizzup

import Control.Monad
import Control.Monad.Trans.State
import Data.Maybe

(<.>) :: Monad m => (a -> b) -> (c -> m a) -> c -> m b
f <.> g = fmap f . g

whenJust :: Monad m => Maybe t -> (t -> m ()) -> m ()
whenJust  Nothing _ = return ()
whenJust (Just x) f = f x

wizzup

import Diagrams.Prelude
import Diagrams.Backend.SVG.CmdLine
import Control.Monad

points :: [P2 Double]
points = map (\[a,b] -> p2 (a,b)) $ replicateM 2 ([1,10..100] :: [Double])

myC :: Int -> Diagram B 
myC r = square (fromIntegral r) #lc color #lw 3 
  where color = case r `mod` 3 of

wizzup

## /etc/systemd/system/docker.service 

.include /usr/lib/systemd/system/docker.service

[Service]
Slice=limit.slice

wizzup

 ____________ 
< beavis.zen >
 ------------ 
   \         __------~~-,
    \      ,'            ,
          /               \
         /                :
        |                  '
        |                  |
        |                  |