pascalabcnet/ReleaseGenerators/PT4/Lib/PT4LinqBegin[PascalABC].txt

[4]
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>.<2E>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LINQ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20>.: <20><><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD>, 2014.
// <20><><EFBFBD><EFBFBD><EFBFBD> 5. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LinqBegin
//     5.1. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// LinqBegin4: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 1 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28>.126)
begin
  Task('LinqBegin4');
  var c := ReadChar;
  var a := ReadSeqString;
  try
    var r := a.SingleOrDefault(e -> (e.Length <> 0) and (e[e.Length] = c));
    write(r <> nil ? r : '');
  except
    write('Error');
  end;
end.
[15]
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>.<2E>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LINQ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20>.: <20><><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD>, 2014.
// <20><><EFBFBD><EFBFBD><EFBFBD> 5. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LinqBegin
//     5.2. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// LinqBegin15: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 2 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28>.134, <20><><EFBFBD><EFBFBD><EFBFBD>)
begin
  Task('LinqBegin15');
  var n := ReadInteger;
  var f := Range(1, n)
    .Aggregate(1.0, (a, e) -> a * e);
  write(f);
end.
[31]
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>.<2E>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LINQ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20>.: <20><><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD>, 2014.
// <20><><EFBFBD><EFBFBD><EFBFBD> 5. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LinqBegin
//     5.3. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// LinqBegin31: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 1 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28>.145)
begin
  Task('LinqBegin31');
  var k := ReadInteger;
  var a := ReadSeqString;
  var b := a.Take(k).Show('B');
  var c := a.Reverse()
    .TakeWhile(e ->not char.IsDigit(e[e.Length])).Show('C');
  b.Intersect(c).Show('D')
    .OrderBy(e -> e.Length).ThenBy(e -> e)
    .WriteAll;
end.
[43]
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>.<2E>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LINQ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20>.: <20><><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD>, 2014.
// <20><><EFBFBD><EFBFBD><EFBFBD> 5. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LinqBegin
//     5.4. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// LinqBegin43: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28>.151, <20><><EFBFBD><EFBFBD><EFBFBD>)
begin
  Task('LinqBegin43');
  var k := ReadInteger;
  ReadSeqString
    .SelectMany((e, n) ->
       e.Where((c, i) -> i mod 2 = (n < k ? 0 : 1)).Show())
    .Reverse
    .WriteAll;
end.
[52]
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>.<2E>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LINQ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20>.: <20><><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD>, 2014.
// <20><><EFBFBD><EFBFBD><EFBFBD> 5. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LinqBegin
//     5.5. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// LinqBegin52: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 1 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28>.159, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
begin
  Task('LinqBegin52');
  var a := ReadSeqString()
    .Where(e -> char.IsDigit(e[e.Length])).Show('A');
  var b := ReadSeqString()
    .Where(e -> char.IsDigit(e[e.Length])).Show('B');
  a.SelectMany(e1 -> b.Select(e2 -> e1 + '=' + e2))
    .OrderBy(e -> e.Split('=')[0])
    .ThenByDescending(e -> e.Split('=')[1])
    .WriteAll;
end.
[54]
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>.<2E>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LINQ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20>.: <20><><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD>, 2014.
// <20><><EFBFBD><EFBFBD><EFBFBD> 5. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LinqBegin
//     5.5. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// LinqBegin54: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28>.170, <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>)
begin
  Task('LinqBegin54');
  ReadSeqString().GroupJoin(ReadSeqString(),
      e -> e[1], e -> e[1],
      (e1, ee2) -> ee2.DefaultIfEmpty('')
    .Select(e -> e1 + '.' + e))
    .SelectMany(e -> e).OrderBy(e -> e).Show()
    .WriteAll;
end.
[60]
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>.<2E>. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LINQ <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>. <20>.: <20><><EFBFBD>-<2D><><EFBFBD><EFBFBD><EFBFBD>, 2014.
// <20><><EFBFBD><EFBFBD><EFBFBD> 5. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> LinqBegin
//     5.6. <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
// LinqBegin60: <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> - 1 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (<28>.175, <20><><EFBFBD><EFBFBD><EFBFBD>)
begin
  Task('LinqBegin60');
  ReadSeqString().GroupBy(e -> e[1])
    .OrderByDescending(e -> e.Sum(s -> s.Length)).ThenBy(e -> e.Key)
    .Select(e -> e.Sum(s -> s.Length) + '-' + e.Key)
    .WriteAll;
end.