花弁

Аноним

28 January 2009 (Wed) 07:30 No.213

File: 1233124252728.jpg
Jpg, 5.96 KB, 200×160 - Click the image to expand

Анон, помоги разобраться! Объясни как работает алгоритм (паскаль).

1) Составьте программу определения максимального из всех введенных чисел (Признак окончания работы -0).
==
var max,i:integer;
begin
writeln('Input number');
read(max);
repeat
read(i); {Откуда берет свои значения переменная i?}
if max<i then max:=i;
until i=0;
writeln('Max:',max);
end.

2) Дана непустая последовательность ненулевых чисел, за которой следует ноль. Определить, сколько раз в этой последовательности меняется знак (например, в последовательности 1,38,8,-14,6,-4 знак меняется 3 раза).
==
var a,k,n:integer;
begin
writeln('Введите числа (0-конец)');
read(a);
k:=a;
while a<>0 do
begin

read(a);      {Почему "k" равно предыдущему значению "а"?}
if  k*a<0 then n:=n+1;
k:=a;
end;

writeln('Знак меняется ',n,' раз' );
end.

Аноним 28 January 2009 (Wed) 13:21 No.223

File: 1233145283383.gif
Gif, 79.01 KB, 500×346 - Click the image to expand

1) Значение вводятся в строку с клавиатуры.
2) Если у двух чисел разные знаки, то их произведение меньше нуля. Для сравнения произведения двух последовательно идущих значений нужны сами значения. В k заносится предыдущее значение, чтобы не потерять его.

Аноним 18 February 2009 (Wed) 17:56 No.311

import re
import sys

lines = sys.stdin.readlines()
numbers = [int(x) for x in lines if re.match(r'\s*[+-]?\d+\s*$', x)]
print ('Maximum: ', max(numbers))

Аноним 20 February 2009 (Fri) 09:44 No.343

>>342
А так можно? :3

Prelude> let maximum' x = foldl1 max x
Prelude> :t maximum'
maximum' :: (Ord a) => [a] -> a
Prelude> maximum' [1,2,3,2]
3

Аноним 20 February 2009 (Fri) 10:21 No.345

>>344
Мы опеределили свою функцию нахождения максимума в одну строчку через fold.

Можно и не используя max:
Prelude> let maximum' x = foldl1 (\a b -> if a > b then a else b) x
Prelude> maximum' [1,2,3,2]
3

Можно и без fold:
Prelude> let maximum' (x:x':xs) = if x > x' then maximum (x:xs) else maximum (x':xs)
Prelude> maximum' [1,2,3,2]
3

Аноним 20 February 2009 (Fri) 10:24 No.346

>>345
То есть так:
let maximum' (x:x':xs) = if xs == [] then if x > x' then x else x' else if x > x' then maximum' (x:xs) else maximum' (x':xs)

Аноним 20 February 2009 (Fri) 10:36 No.347

>>345
Именно в одну строчку? Сомневаюсь. А какое преимущество у объявления функции в одну строчку?

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

let maximum' (x:x':xs) = 
    if xs == [] then 
        if x > x' then 
            x 
        else x' 
    else if x > x' then 
        maximum' (x:xs) 
    else 
        maximum' (x':xs)

Аноним 20 February 2009 (Fri) 10:44 No.348

>>347
Преимущество в том, что простые конструкции, которые понятны и так будут занимать меньше места.

А вообще, сила хаскеля, конечно, не в этом.

Аноним 20 February 2009 (Fri) 10:46 No.349

>>348
Гм, преимущества кода не в краткости, а в читаемости, нет?

Переписать >>347 на питоне не составляет труда.

Аноним 20 February 2009 (Fri) 10:55 No.350

>>349
Нет, он остается кратким и в тоже время читаемым.

let isPrime x n = 
    if n == 1 then True
    else if x `mod` n == 0
             then False
             else isPrime x (n - 1)
in filter (\x -> isPrime x (x `div` 2)) [2..]

Вот, например. Бесконечный список простых числе. Сомневаюсь, что так можно сделать на питоне (одним выражением).

Аноним 20 February 2009 (Fri) 13:42 No.354

var max,i:integer;
begin
writeln('Input number');//Вывод на экран
read(max); //ввод числа с клавы, первое число и будет максимальным(пока)
repeat

      read(i); //ввод следующего числа с клавы
      if max<i then //проверка
          max:=i; //если условие выполнено

//присваивеаем (максимальным будет i)
until i=0; //если i равно 0 идем ниже иначе к
//repeat
writeln('Max:',max); //вывод максимального числа
end.

Аноним 20 February 2009 (Fri) 18:16 No.355

>>350

def isPrime(x, n) :
	if n == 1 :
		return True
	elif x % n == 0 :
		return False
	else :
		return isPrime(x, n-1)

# Children, don't try this at home
for x in (print(x) for x in range(2,100) if isPrime(x, x // 2)) : pass

Аноним 20 February 2009 (Fri) 19:58 No.357

>>356
Ты упоротый? В питоне синтаксически надо после объявления функции энтер нажмать. А так это одно выражение.

>>352
Потому что аналог let - это обычное присваивание, сюрприз?

>>355
Лол, можно даже боле похоже с использованием фильтра сделать, чтоб совсем похоже было.

Аноним 20 February 2009 (Fri) 20:19 No.360

>>357
Ты что дебил совсем? Какой нахуй ентер ему нажимать? ОДНИМ выражением мне сделай или иди нахуй.
Одним выражением значит можно записать на одной строчке.

Нельзя записать — твой питон соснул хуйцов, о чем я уже давно сказал.

Аноним 20 February 2009 (Fri) 20:22 No.361

File: 1235157725174.jpg
Jpg, 55.33 KB, 452×604 - Click the image to expand

>>360

>Одним выражением значит можно записать на одной строчке.

Потрфель собрал?

Аноним 20 February 2009 (Fri) 20:35 No.364

>>362
Ты дурак?
Код на хаскелле:

roots a b c =
    let disc = sqrt (b*b - 4*a*c)
        twice_a = 2*a
    in  ((-b + disc) / twice_a,
         (-b - disc) / twice_a)

Код на любом не-функциональном языке:

def roots(a, b, c):
    disc = sqrt (b*b - 4*a*c)
    twice_a = 2*a
    return [(-b + disc) / twice_a, (-b - disc) / twice_a)]

Или объявление переменных - офигенная фишка Хаскеля, лол?
>>363
Да, да, иди попрогай на своём бесполезном, никому не нужном хаскелле. Самое забавное, что даже лисп/схема больше используются.

Аноним 20 February 2009 (Fri) 20:55 No.365

>>364
Ты же упоротый.

>disc = sqrt (b*b - 4*a*c)
>twice_a = 2*a

Это переменные, а не функции.

А вот так можно?

roots a b c =
    let disc = sqrt (b*b - (twice . twice $ a) * c)
        twice = (2*)
    in  ((-b + disc) / (twice a),
         (-b - disc) / (twice a))

>Да, да, иди попрогай на своём бесполезном, никому не нужном хаскелле.

Orly? http://haskell.org/haskellwiki/Applications_and_libraries

Аноним 20 February 2009 (Fri) 21:18 No.366

>>365

>Это переменные, а не функции.

Это из твоей же ссылки.

>twice = (2*)

Это такая нативная обфускация, лол? К счастью питон такого не позволяет. Но можно сделать например так:

 def roots(a, b, c):
      twice = lambda x: 2 * x
  disc = sqrt(b * b - (twice(twice(a))) * c)
  return [(-b + disc) / (twice(a)), (-b + disc) / (twice(a))]

Причём лямбда, имхо, плохой тон. Алсо, будь любезен, скажи возможный профит от twice = (2*).

>Orly?

YARLY.

Аноним 20 February 2009 (Fri) 21:28 No.367

>>366

>Это из твоей же ссылки.
>>twice_a = 2*a

В хаскелле это тоже функция, представь себе.

>Это такая нативная обфускация, лол?

Лолшто? Читай про каррирование, быдло. http://en.wikipedia.org/wiki/Currying

>Алсо, будь любезен, скажи возможный профит от twice = (2*).

Опять же, читай ссылку выше.

>YARLY.

Что, подавилось пруфами, быдло?

>Но можно сделать например так:

А так?

roots a b c =
    let disc = sqrt (b*b - (mul 4 a) * c)
        mul x = (x*)
    in  ((-b + disc) / (mul 2 a),
         (-b - disc) / (mul 2 a))

Алсо, «(twice(twice(a)))» выглядит пиздец как ущербно.