prakashk

-- rename Project Euler files in git lost-found directory

-- get the file type and the problem number from the initial comments
-- in each file

import System.Directory
import Text.Regex.Posix
import Control.Monad (forM_)

lostFilesDir = ".git/lost-found/other"

prakashk

-- rename Project Euler files in git lost-found directory

-- get the file type and the problem number from the initial comments
-- in each file

import System.Directory
import Text.Regex.Posix
import Control.Monad (forM_)

lostFilesDir = ".git/lost-found/other"

prakashk

-- rename Project Euler files in git lost-found directory

-- get the file type and the problem number from the initial comments
-- in each file

import System.Environment
import System.Directory
import Text.Regex.Posix
import Control.Monad (forM_)

prakashk

-- https://questhub.io/realm/haskell/quest/537bb4e2bbd0bed61d00007d

head :: [a] -> a
head [] = error "head: empty list"
head (x:xs) = x

tail :: [a] -> [a]
tail [] = error "tail: empty list"
tail (x:xs) = xs

prakashk

import System.Environment (getArgs)
import Text.Parsec
import Text.Parsec.Prim
import Text.Parsec.Language
import qualified Text.Parsec.Token as T
import Control.Applicative ((<$>), (*>))

type Parser = Parsec String ()

-- AST

prakashk

import System.Environment (getArgs)
import Text.Parsec
import Text.Parsec.Prim
import Text.Parsec.Language
import qualified Text.Parsec.Token as T
import Control.Applicative ((<$>), (*>), (<*>), pure)

type Parser = Parsec String ()

-- AST

prakashk

import System.Environment (getArgs)
import Text.Parsec
import Text.Parsec.Prim
import Text.Parsec.Language
import qualified Text.Parsec.Token as T
import Control.Applicative ((<$>), (*>), (<*>), pure, liftA2)

type Parser = Parsec String ()
type Location = String
type LocNode a = (Location, a)

prakashk

import System.Environment (getArgs)
import Text.Parsec
import Text.Parsec.Prim
import Text.Parsec.Language
import qualified Text.Parsec.Token as T
import Control.Applicative ((<$>), (*>), (<*>), pure, liftA2)
import Data.List (intercalate)

type Parser = Parsec String ()
type Location = String

prakashk

### the patch passes the following tests :)

#?rakudo todo 'unicode'
{ # distribution for unary prefix
        my @r;
        @r = -« ([1, 2], [3, [4, 5]]);
        my @e = ([-1, -2], [-3, [-4, -5]]);
        is(~@r, ~@e, "distribution for unary prefix");

        @r = -<< ([1, 2], [3, [4, 5]]);

prakashk

diff --git a/bin/book-to-latex b/bin/book-to-latex
index a909a46..f3f1018 100644
--- a/bin/book-to-latex
+++ b/bin/book-to-latex
@@ -12,6 +12,7 @@ print <<'HEADER';
 \usepackage[utf8]{inputenc}
 \usepackage{makeidx}
 \usepackage[colorlinks=true,pagebackref]{hyperref}
+\usepackage{wrapfig}