Problems Solved: 53 out of 251

>>1137
Ололо, а 16-ю не осилил?

>>1139 Ни одну, кроме тех что на пике, не осилил. Насчет 16-й пишу функцию сложения в столбик - без бигинтов, an i doin it right?

>>1142
16: sum $ map digitToInt $ show (2^1000)

>>1143 Ох щи, это что за язык-то?

>>1144
Haskell же

Кстати, зачем вы это делаете? Я вот например не программист ни разу, по выходным разминаю мозги и освежаю школьную математику (perl + бумага и карандаш), вроде илитарного кроссворда.

>>1146
В связи с сессией делать совершенно нехуй.

16:

#!/usr/bin/ruby
n = 1
x = 2
x*=2 while (n=n+1) <= 1000

print "2^1000 = " , x, "\n"

s = 0

while (x > 0)
  s+=x%10
  x/=10
end
print "sum(2^1000) = ", s

2^1000 = 10715086071862673209484250490600018105614048117055336074437503883703510511249361224931983788156958581275946729175531468251871452856923140435984577574698574803934567774824230985421074605062371141877954182153046474983581941267398767559165543946077062914571196477686542167660429831652624386837205668069376
sum(2^1000) = 1366

20:

#!/usr/bin/ruby
n = 2
x = n
x*=(n+=1) while (n < 100)

print "100! = " , x, "\n"

s = 0

while (x > 0)
  s+=x%10
  x/=10
end
print "sum(100!) = ", s

100! = 93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000
sum(100!) = 648

13-е не понял.

>>1151 Ну вот спойлерить некрасиво же, милчеловек. А в 13-том первые 10 разрядов суммы этих чисел.

>>1152
это не я, это движок.
там сумму чисел первой сотни чисел, состоящих из 50 знаков, найти чтоли надо?

>>1154 Там даны конкретные числа
37107287533902102798797998220837590246510135740250
46376937677490009712648124896970078050417018260538
и далее, их 100 штук. Треба их сложить и ответ - первые 10 разрядов суммы.

>>1155
5+5+3+7+3+7+6+2+3+0=41

#!/usr/bin/ruby

f=File.new("sum50k.txt","r");
s=0

while (line=f.gets)
  s+=line.to_i
end
puts s.to_s[0,10]

алсо, ничего сложного.

>сложить

вот пиздабол, а! там сами числа надо. ответ: 5537376230

1157

Problems Solved: 73 out of 251 (27 more until next level)

Да, и я что-то подзабил в последнее время.

Бамп. А кто как решал проблему 12? То есть находил количество делителей. Я факторизую число. Если все простые числа в степени 1, то делителей вместе с единицей получается 2^N, где N - количество простых делителей. А как быть, если, например, две двойки, две тройки и т.д.? Заебался, второй день ищу закономерность. Блядская комбинаторика.

>>1252 Закономерности нет, решай перебором

>>1258
перебором уже получил 76576500, но там есть закономерность БЛЯ БУДУ! просто она все время ускользает от моего внимания, когда я ее уже почти раскрываю. если расположить дублирующиеся числа в порядке возрастания их количества, каждое дает плюс k*2^(N-1), где k - номер числа по этому порядку, начиная с единицы. Какие это числа - неважно. Важен порядок. Это работает при условии, что каждое число повторяется хотя бы 2 раза, например 2*3*5*7*2 имеет на 8 делителей больше, чем 2*3*5*7, и на 8 делителей меньше, чем 2*3*5*7*2*2. Число 2*3*5*7*2*2*3 имеет на 16 делителей больше, чем оно же без последней тройки. Однако, на 2*3*5*7*2*3 это не работает. Я добью эту хуиту, мне бля похуй, я бля робот.

>>1259 робот, ты в курсе, что факторизацию как бы принято записывать от меньших множителей к большим, и тспользовать степени, а-ля 2^3*3^5*11 ? Так быстрее найдешь закономерность.

>>1259 Чем перебирал?

>>1260
в том-то и дело, что мне так проще - от уникальных факторов к дублям. У меня программа так работает. Но если можешь предложить свой вариант развития - давай.
робот

>>1261
Си, unsigned int

>>1262 Ну, если удобнее то конечно, я просто упомянул о общепринятом способе нотации.

>>1263 Покажи time и cpuinfo

#!/usr/bin/perl
sub find_triangle_numbers {
$triangle=0;
for ($i=1; $i<=$_[0]; $i++){
    $triangle+=$i;
  }
return $triangle;
}
sub count_all_divisors{
$total_divisors=0;
for ($i=1; $i <= (sqrt($_[0])); $i++)
{
    if (!($_[0] % $i))
    { $total_divisors+=2; }
    else
    {;}
}
return $total_divisors;
}
while(1)
{
$b=find_triangle_numbers($a); 
$all_divs=&count_all_divisors($b);
if ($all_divs>500){print $b, " : ", $all_divs, "\n";exit;}
$a++;

#########
user@host:~ time ./eu13.pl
76576500 : 576

real 1m5.886s
user 1m1.128s
sys 0m0.056s

Кстати красивое решение - и само число, и количество делителей из одних цифр

>>1259
Робот, нашел закономерность? Я нашел.

>>1259

Выпиши степени как сказал >>1260
Прибавь к каждой единицу.
Перемножь их.

2*2*3*3*5*5*5*7*11*13*17 = 76576500
2^2 * 3^2 * 5^3 * 7^1 * 11^1 * 13^1 * 17^1 = 76576500
3*3*4*2*2*2*2=576

>>1283
ооо, нихуя, ты спас мой сон! спасибо тебе, держи интернеты!!

>>1265
Втр Июн 23 19:04:26

2031120 (2015): 240
2162160 (2079): 320
3483480 (2639): 256
4426800 (2975): 240
4573800 (3024): 288
4915680 (3135): 288
6193440 (3519): 288
7010640 (3744): 240
7874496 (3968): 210
8325240 (4080): 256
8386560 (4095): 288
8817900 (4199): 288
8923200 (4224): 252
9058896 (4256): 240
10467600 (4575): 240
10577700 (4599): 216
10767120 (4640): 320
11331180 (4760): 216
11445720 (4784): 256
11982960 (4895): 240
12298320 (4959): 240
12457536 (4991): 224
13022856 (5103): 224
13439520 (5184): 240
13857480 (5264): 320
14448000 (5375): 256
14794080 (5439): 288
16678200 (5775): 288
17573556 (5928): 216
17907120 (5984): 480
18455850 (6075): 216
19223100 (6200): 216
19672128 (6272): 252
20069280 (6335): 288
20476800 (6399): 240
20991960 (6479): 320
21783300 (6600): 288
21942000 (6624): 240
22582560 (6720): 384
23007936 (6783): 224
23334696 (6831): 256
24328800 (6975): 216
24447528 (6992): 256
24552528 (7007): 240
24643710 (7020): 256
24890040 (7055): 288
25236960 (7104): 288
25743900 (7175): 288
26031720 (7215): 256
26096700 (7224): 216
26970840 (7344): 256
27561600 (7424): 384
28309050 (7524): 288
29610360 (7695): 320
30236976 (7776): 240
30728880 (7839): 360
31240560 (7904): 320
32004000 (8000): 288
32800950 (8099): 240
34283340 (8280): 324
34607040 (8319): 224
35410320 (8415): 240
35688576 (8448): 256
36709596 (8568): 288
37191000 (8624): 384
38023560 (8720): 256
38715600 (8799): 240
39209940 (8855): 384
40145280 (8960): 256
40720800 (9024): 216
40901490 (9044): 256
41884128 (9152): 240
42462720 (9215): 240
43659840 (9344): 224
43800120 (9359): 288
43809480 (9360): 384
44854656 (9471): 256
45158256 (9503): 320
45310440 (9519): 256
45845100 (9575): 216
46392528 (9632): 240
46459980 (9639): 240
47321856 (9728): 216
48024900 (9800): 406
48565440 (9855): 448
49446540 (9944): 288
49755300 (9975): 288
49995000 (9999): 240
50445990 (10044): 240
50647080 (10064): 256
50808240 (10080): 240
51770400 (10175): 288
52014900 (10199): 288
52433920 (10240): 264
52998660 (10295): 288
53091360 (10304): 288
53411280 (10335): 320
54033210 (10395): 256
54491580 (10439): 288
54752880 (10464): 320
55414128 (10527): 240
55719846 (10556): 256
56015820 (10584): 288
56684628 (10647): 216
56812470 (10659): 256
58487520 (10815): 288
59181760 (10879): 224
59192640 (10880): 448
59891040 (10944): 288
60769800 (11024): 432
60935280 (11039): 320
61999680 (11135): 224
62010816 (11136): 224
62177976 (11151): 256
63895860 (11304): 288
64292130 (11339): 320
64701000 (11375): 384
65259600 (11424): 240
65431080 (11439): 384
67088736 (11583): 240
67459920 (11615): 240
67843776 (11648): 224
67925340 (11655): 288
69331200 (11775): 216
69390090 (11780): 384
69614100 (11799): 288
71216145 (11934): 256
71814120 (11984): 256
71994000 (11999): 240
72294300 (12024): 216
73150560 (12095): 384
73744440 (12144): 256
73926720 (12159): 336
74426100 (12200): 216
75454470 (12284): 256
75897360 (12320): 360
76576500 (12375): 576
Убито

Втр Июн 23 19:04:28

исходник
#include <stdio.h>

#include <signal.h>
#include <math.h>

#define MAX_CHLD 20

void ueban(int signum);
void found(int signum);

int chldren = 0;

int main(int argc, char * argv[]) {
	register unsigned int n,i,x = 0,s = 0;
	signal(SIGUSR1,&ueban);
	signal(SIGHUP,&found);
	do {
		n = 2;
		i = 2;
		s += ++x;
		while (chldren >= MAX_CHLD) pause();
		if (fork() == 0) {
			while (i<=sqrt(s)) if (s%i++ == 0) n+=2;
			if (n>200) printf("%u (%u): %u\n",s,x,n);
			if (n>500) kill(getppid(),SIGHUP);
			kill(getppid(),SIGUSR1);
			break;
		} else ++chldren;
	} while (1);
	return 0;
}

void ueban(int signum) {
	--chldren;
}

void found(int signum) {
	kill(getpid(),SIGKILL);
}

>>1291 Ебать, хардкор С

Школота, же

Что в 8-м нужно сделать?
Мой ответ не принимает(число из 5-ти последовательных чисел).

>Find the greatest product of five consecutive digits in the 1000-digit number.

>>2203
блджад, product - мат. произведение.

а кто как 11-ю решал? :3
inb4 решил за 3 минуты почти без программирования

>>1145
ебанулся чтоли, на хескеле будет так:

sum [ read [x]::Int | x <- show (2^1000)]

создаём степень, отображаем её как "стринг", почарово кастуем в инт и сбрасывая элементом в список, суммируем.