Mauro Panigada shintakezou

## lambdacpp11.cpp
#include <iostream>
#include <numeric>
#include <vector>

using namespace std;

int main()
{
  vector<int> array = {1, 2, 3, 4, 5};

## lambdaclisp.cl
(reduce (lambda (x y) (+ x (* y 2))) '(1 2 3 4 5) :initial-value 0)

## lambdafoldl.hs
foldl (\x y -> x + y*2) 0 [1, 2, 3, 4, 5]

## foldll.erl
lists:foldl(fun(Y, X) -> X + Y*2 end, 0, [1,2,3,4,5]).

## reducell.pl
use List::Util qw(reduce);
my $r = reduce { $a + $b * 2 } 0, 1..5;

## reducell.py
reduce(lambda x, y: x + y*2, [1,2,3,4,5], 0)

## injectinto.st
#(1 2 3 4 5) inject: 0 into: [ :x :y | x + (y*2) ].

## noboilerlamb.cpp
accumulate(array.begin(),
           array.end(), 0,
           [](const int& x, const int& y) -> int  { return x + y*2; })

## matrixfoo.c
int foo()
{
  matrix a = NULL, b = NULL, c = NULL;
  matrix_ctx ctx = NULL;

  matrix_start(ctx);

  a = matrix_new(ctx, 1000, 1000);
  b = matrix_new(ctx, 1000, 1000);

## rel-article.prolog
%{ knowledge starts from here
%% the database knows these people
person('Mary Brod').
person('Carl Stuckart').
person('Rudolf Fisher').
person('Amanda Least').
person('Minority Report').

%% when they are born
born('Mary Brod', date(1988, 3, 11)).
	#include <iostream>
	#include <numeric>
	#include <vector>

	using namespace std;

	int main()
	{
	vector<int> array = {1, 2, 3, 4, 5};
	use List::Util qw(reduce);
	my $r = reduce { $a + $b * 2 } 0, 1..5;
	accumulate(array.begin(),
	array.end(), 0,
	[](const int& x, const int& y) -> int { return x + y*2; })
	int foo()
	{
	matrix a = NULL, b = NULL, c = NULL;
	matrix_ctx ctx = NULL;

	matrix_start(ctx);

	a = matrix_new(ctx, 1000, 1000);
	b = matrix_new(ctx, 1000, 1000);
	%{ knowledge starts from here
	%% the database knows these people
	person('Mary Brod').
	person('Carl Stuckart').
	person('Rudolf Fisher').
	person('Amanda Least').
	person('Minority Report').

	%% when they are born
	born('Mary Brod', date(1988, 3, 11)).