DR>>SumLines("test.txt");
DR>>

BZ>just for comparison :

BZ>недёшево "человеческое лицо" обходится, одним словом

len(open('xorg.conf').readlines())

[reduce(lambda a,b:int(a)+int(b), x.split(' ')) for x in open('nums').readlines()]

IO.foreach("nums.txt"){|s| p s.split(' ').inject{|a,b| a.to_i+b.to_i}}

dmz>[reduce(lambda a,b:int(a)+int(b), x.split(' ')) for x in open('nums').readlines()]
dmz>

using Nemerle.Utility;
using System.IO;
using System;

module TextReadeExtension
{
    public ReadLines(this reader : TextReader) : list[string]
    {
        mutable lines = [];
        mutable line = reader.ReadLine();
        while (null != line)
        {
            lines ::= line;
            line = reader.ReadLine();
        }
        lines;
    }
}

File
    .OpenText("test.txt")
    .ReadLines()
    .Map(x => x.Split(array[' ']).Fold(0, (a, b) => int.Parse(a) + b))
    .Iter(Console.WriteLine : int -> void);

sub add($$)
{
    my ($a,$b) = @_;
    return $a+$b;
}
sub reduce
{
    my $op=shift;
    my $a = shift;
    for my $i (@_) {
        $a = &$op($a,$i);
    }
    return $a;
}

print join("\n",map { reduce(\&add,0,split) } <>);

map { print reduce(\&add,0,split),"\n"; } <>;

+/"1 ". > (< ;. _2) freads 'my.txt'

BZ>just for comparison :

BZ>недёшево "человеческое лицо" обходится, одним словом

try
{
    SumLines("test.txt");
}
catch
{
    _ is FormatException => Console.WriteLine("Incorrect file format.");
}

M>Когда начинается пенисометрия в разрезе "кто короче" ему нет равных

#!perl -np
$_=reduce(\&add,0,split);

+/"1 ". > (< ;. _2) freads 'my.txt'

__>а где переводы строки между строками?

1 2 3

1
2
3

,. 1 2 3

1 
2
3

,. +/"1 ". > (< ;. _2) freads 'my.txt'

import Control.Arrow
import Control.Exception

main = handle print $ do
       readFile "test" >>= return.process >>= putStr
process = lines >>> map sumline >>> unlines
sumline = words >>> map (read::String->Int) >>> sum >>> show