![]() Sellers are responsible for following applicable laws and regulations, including posting items with accurate labeling and warnings. Its a fun way to think about scoring cribbage hands. Products that contain small parts may pose a choking hazard and should not be used by children under 3. GitHub - transmogrifier/pegSolitaire: Triangular peg solitaire game implemented. Peg Solitaire Half our imports are for the user interface: .Map.Strict(Map). Disclaimer: As with all childrens products, adult supervision is required. singleton ( 3, 3 ) True ) $ do let m = div sz 2 = fromIntegral renderOnTop canvas $ color ( RGB 255 255 255 ) $ sequence_ paint :: Canvas -> ( Map ( Int, Int ) Bool, Maybe ( Int, Int )) -> IO () paint canvas ( st, sel ) = do render canvas $ case sel of Just p -> color ( RGB 127 255 255 ) $ spot p $ rad + 3 Nothing -> pure () void $ renderOnTop canvas $ mapM pegPic $ M. Triangular peg solitaire game implemented using Javscript, jQuery, and Bootstrap. ![]() Sz :: Int sz = 40 rad :: Double rad = 12 spot :: ( Int, Int ) -> Double -> Picture () spot ( r, c ) t = let m = div sz 2 in fill $ circle ( fromIntegral ( sz * c + m ), fromIntegral ( sz * r + m )) t pegPic :: (( Int, Int ), Bool ) -> Picture () pegPic ( p, b ) = color ( RGB ( bool 0 255 b ) 0 0 ) $ spot p rad victory :: Canvas -> Map ( Int, Int ) Bool -> IO () victory canvas st = when ( M. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |