Projeto Euler – Problema #13

Bem, o problema #13 do projeto Euler é bem simples. Apenas pede os 19 primeiros dígitos da soma de 100 números com 50 dígitos cada um. É só somar todos e pegar os 10 primeiro. Mas como resolver em J?

A=: “.;._2(0 : 0)

37107287533902102798797998220837590246510135740250
…

53503534226472524250874054075591789781264330331690

)

Ok, criamos uma lista com os 100 números de 50 digitos. Para o resultado é só:

 

10{.”:x:+/A

Mais um sem graça.

+/ soma todos os elementos da lista, x: torna precisão extendida, “: converte para string, 10{. retorna os 10 primeiros elementos.