pqr

<?php
/* скрипт для запуска тестов для стати http://pqr7.wordpress.com/2014/09/03/haskell-vs-php/ */

function runTest($cmd, $content) {

    $time = microtime(true);

    $descriptorspec = [];
    $descriptorspec[0] = ['pipe', 'r']; //stdin
    $descriptorspec[1] = ['pipe', 'w']; //stdout

pqr

B/L no. 	Container No. 	From 	To 	Vessel
868026836 	

TRLU6921946

Toys, games

in 1× 40ft High Cube Dry
	

pqr

<?php
/* php скрипт в функциональном стиле (калька с Haskell) для статьи http://pqr7.wordpress.com/2014/09/03/haskell-vs-php/ */

ini_set('xdebug.max_nesting_level', 200000);

function parse($text) {
    return splitPerBlocks(getLines($text));
}

function getLines($text) {

pqr

module Main where

{- программа на Haskell для статьи http://pqr7.wordpress.com/2014/09/03/haskell-vs-php/ -}

import qualified Data.Text as T --
import Data.List

parse :: String -> [[String]]
parse text = splitPerBlocks $ getLines text

pqr

<?php
/* php скрипт в императивном стиле для статьи http://pqr7.wordpress.com/2014/09/03/haskell-vs-php/ */

function splitPerBlock(array $lines) {
    $blocks = [];
    //Перебираем линии, отрезая от начала массива $lines найденные блоки. В итоге массив $lines станет пустым, а массив
    //$linesPerBlock наполнится данными
    while ($lines) {
        //Если текущий блок начинается со строки, которая содержит "Container No.", удаляем эту строку
        if (strpos($lines[0], 'Container No.') !== false) {

pqr

{
    "name":"light/light4",
    "version":"1.0.0",
    "require":{
        "php":">=5.4.0",
        "silex/silex": "1.0.*@dev",
        "twig/twig":">=1.8,<2.0-dev",
        "monolog/monolog":">=1.0.0",
        "symfony/validator":"2.1.*",
        "symfony/console":"2.1.*"

pqr

{
    "repositories":[
        {
            "type":"hg",
            "url":"ssh://hg@bitbucket.org/pqr/light4"
        }
    ],
    "require":{
        "light/light4":"dev-default"
    },

pqr

formatMsg = (function (original) {
    return function (entry) {
        additinalWork();
        return original.apply(this, arguments);
    };
})(formatMsg);