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

file <- openFile "somefile.txt" ReadMode
doSomethingWith file
hClose file

import Prelude hiding (catch)
import Control.Exception (catch, ErrorCall)

> print (read "notnumber" + 5) `catch` (\(ErrorCall s) -> print s)

M>И чем отличается >>= от >>> ?

(>>>) :: Arrow a => a b c -> a c d -> a b d

(>>=) :: Monad a => a b -> (b -> a c) -> a c

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

File.ReadAllLines("Numbers.txt").Select(l => l.Split(' ').Select(s => int.Parse(s)).Sum()).ToArray();

Array.ForEach(File.ReadAllLines("Numbers.txt").Select(l => l.Split(' ').Select(s => int.Parse(s)).Sum()).ToArray(), Console.WriteLine);

print "\n".join( sum(x.split(' ')) for x in open('nums').readlines() )

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

[sum(map(int, x.split())) for x in open('nums')]

print '\n'.join(sum(map(int, x.split())) for x in open('nums'))

BZ>just for comparison :

import Control.Monad (forM)

main = do reader <- readFile "test.txt"
          forM (lines reader) $ \line ->
               print $ sum $ map read $ words line

main = readFile "test.txt" >>= mapM_ (print.sum.map read.words) . lines

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

def res = File.ReadAllLines(@"..\..\test.txt").Map(
  x => x.Split(' ').Fold(0, (a, b) => int.Parse(a) + b));
WriteLine($"..$res");

BZ>just for comparison :

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

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

foreach (line in File.ReadAllLines("test.txt"))
  WriteLine(line.Split(' ').Map(int.Parse).Fold(0, _ + _));

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

,. +/ |: (". ;. _2) freads 'my.txt'

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

А>,. +/ |: (". ;. _2) freads 'my.txt'
А>

,. +/@". ;. _2 freads 'my.txt'

А>>,. +/@". ;. _2 freads 'my.txt'
А>>

File.ReadAllLines("Numbers.txt").Select(l => l.Split(' ').Select(s => int.Parse(s)).Sum()).ToArray();

var sums = from line in File.ReadAllLines("Numbers.txt")
           let numbers = from c in line.Split(' ')
                         select float.Parse(c)
           select numbers.Sum();
           
sums.ToList().ForEach(Console.WriteLine);

+/ % #

geometric_mean =. # %: */

public double geometric_mean(List<double> data)
{
    double mul = 1;
    foreach(var x in data)
    {
        mul *= x;
    }
    return Math.Pow(mul, 1/data.Count);
}

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

А>>,. +/ |: (". ;. _2) freads 'my.txt'
А>>

А>,. +/@". ;. _2 freads 'my.txt'
А>

+/'["I"$" "vs/:read0`my.txt]

А>>,. +/@". ;. _2 freads 'my.txt'
А>>

Q>+/'["I"$" "vs/:read0`my.txt]
Q>

+/'"I"$" "\:'0:`my.txt

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

(+/@".);._2(1!:1<'my.txt')

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

__>таки на перле сравнимо получается

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

__>(reduce и add) описаны отдельно

(+/@".);._2(1!:1<'my.txt')

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

YB>(+/@".);._2(1!:1<'my.txt')
YB>

+/$".,; @$% ^_2&%^$'my.txt'

YB>(+/@".);._2(1!:1<'my.txt')
YB>

+/@".;._2 (#~~:&CR) 1!:1<'c:\\my.txt'

Ну, и Немерле это язык для реальной работы — замена плюсам, C#-у и Яве, а не для пенисометрии.

just for comparison :

foreach (line in File.ReadAllLines("test.txt"))
  WriteLine(line.Split(' ').Map(int.Parse).Fold(0, _ + _));