Perl как учебный язык в СШ -- ваше мнение?

sany79

avinir60

sany79

hoha32

sany79

a10063

ma3yp

avinir60

Dasar

Dasar

Chupa

Marinavo_0507

Dasar

Dasar

ma3yp

a=input("")

b=input("")

while a>0:

    (a,b)=(b%a,a)

print b

Ivan8209

sany79

Marinavo_0507

ma3yp

Dasar

Ivan8209

Chupa

Ivan8209

TYU_2008

sany79

Dasar

Marinavo_0507

Ivan8209

Ivan8209

eduard615

Chupa

factorial :: Int -> Int

factorial n = foldl (*) 1 (take n [1..])

Marinavo_0507

Ivan8209

Dasar

Ivan8209

ma3yp

И твой алгоритм Евклида пишется в одну строку.

sany79

Marinavo_0507

Dasar

germafrodita

germafrodita

Вот придет школьник домой. Его спросят что ты сегодня нового выучил, и что он будет показывать?
Ввод с консоли числа и вывод факториала? И кому это надо? Кого этим удивишь?

Chupa

ma3yp

Dasar

sany79

Chupa

Dasar

hoha32

Marinavo_0507

germafrodita

germafrodita

Ivan8209

Dasar

ma3yp

Marinavo_0507

germafrodita

Например, мне совершенно не хочется объяснять на первом же уроке, как работает программа "Hello, world" и почему я должен написать столько всего, чтобы программа вывела на экран одну-единственную строку.

ma3yp

(letrec f (lambda (p) (if (> (car p) 0) (f (list (modulo (cadr p) (car p (car p p (cadr (f '(A B

Marinavo_0507

germafrodita

ma3yp

Я считаю, что представление о том, что такое программа - это полезный навык. А ты?

Dasar

sany79

germafrodita

Ivan8209

hoha32

ma3yp

sany79

Ivan8209

hoha32

Chupa

ma3yp

Если записать это не в одну строчку, а в три, то будет то же, что и у тебя.

Ivan8209

Ivan8209

sany79

Dasar

ma3yp

hoha32

Ivan8209

sany79

sany79

hoha32

Ivan8209

Gasparfx

ma3yp

sany79

Ivan8209

myrka68

ma3yp

sany79

Ivan8209

ma3yp

sany79

Ivan8209

Ivan8209

sany79

ma3yp

sany79

Ivan8209

sergey_m

Chupa

Ivan8209

Chupa

sany79

Ivan8209

ma3yp

Заметим, что все эти люди учили в школах Паскаль или Бейсик, в лучшем случае С. Причем школьные курсы как правило сосредоточены на решении уравнений, сортировке и прочей алгоритмике. Это совершенно не пригодится людям в жизни.

sany79

Ivan8209

Gasparfx

sany79

ma3yp

Ivan8209

sergey_m

Если речь идет о матшколе/матклассах, то как раз и нужн заниматься со школьниками решением уравнений, сортировкой и прочей алгоритмикой. А уж перлу они и сами научатся, да и как его применять - догадаются. Потому что их научат главному - думать.

Ivan8209

ma3yp

А почему у вас в школе на рабочих компах стоит Линукс, на котором работают дети и учатся программированию?

К тому же это создаёт проблему с домашними заданиями и самостоятельным творчеством, т.к. в 99.9% случаев на их домашних компах стоит windows, и они не смогут воспроизвести или повторить дома то, что проходили в школе.

Тем более, если у самого преподавателя есть сложности в освоении некоторых аспектов работы (вышеупомянутого Vim'a).

sany79

sergey_m

ma3yp

И разве есть такая замечательная командная строка в Windows, которая при нажатии на <TAB> сама подсказывает, что писать?

ma3yp

Возьми и напиши учителям.
Адреса школ указаны.

Gasparfx

sany79

Ivan8209

Завершение имен файлов и папок НЕ ВЛЮЧЕНО по умолчанию. Можно

включить или отключить завершение имен файлов и папок для

конкретного вызова CMD.EXE с помощью ключей /F:ON или /F:OFF.

M:\>ver

Microsoft Windows 2000 [Версия 5.00.2195]

ma3yp

sany79

evgen5555

приятно, когда можно написать короткую и содержательную программу, не заботясь о компиляции и других не имеющих прямого отношения к делу вещах.

Ivan8209

sany79

Ivan8209

evgen5555

hoha32

evgen5555

Kira

ppplva

hoha32

hoha32

evgen5555

sany79

myrka68

sany79

Ivan8209

sany79

myrka68

sany79

Ivan8209

sany79

myrka68

Ivan8209

germafrodita

valeriy1

germafrodita

Ivan8209

Ivan8209

Dasar

Kira

germafrodita

Если ничерта не знаешь, не лезь.

ma3yp

sany79

solteron

sany79

sergey_m

Тогда, может, тебе надо преподавать работу с уникс или гну?
То есть "file utils," "text utils," sed, awk, sh, "shell utils."

Marinavo_0507

Marinavo_0507

        Objective Caml version 3.07+2

# let rec gcd (a, b) = if a = 0 then b else gcd (b mod a, a);;

val gcd : int * int -> int = <fun>

# gcd (9, 15);;

- : int = 3

Chupa

Marinavo_0507

Chupa

Ivan8209

Marinavo_0507

perl -e 'print "A"-"B", "\n"'

0

ma3yp

там, правда, только universities

Marinavo_0507

ma3yp

perl -e 'print "A"-"B", "\n"'

Ivan8209

Marinavo_0507

Marinavo_0507

ma3yp

В питоне 2 и "2" - разные вещи?
Вот и типизация, которую нужно объяснять.

Marinavo_0507

Chupa

Ivan8209

Marinavo_0507

Ivan8209

aliska12

ma3yp

sergey_m

Кстати, вот и достоинство Питона по сравнению с Перлом. В Питоне print "A"-"B" не прокатит. Ошибка будет, "unsupported operand type(s)"

Marinavo_0507

Ivan8209

Marinavo_0507

Ivan8209

Ivan8209

Marinavo_0507

Ivan8209

(define (gcd a b)

  (if (= a 0)

      b

    (gcd (modulo b a) a)

    

(defun gcd (a b)

  (cond equal a 0) b)

	(t (gcd (mod b a) a

(gcd 12 4)

Ivan8209

(defun gcd (a b)

  (if (equal a 0) b (gcd (mod b a) a

C-j runs the command newline-and-indent

Marinavo_0507

Ivan8209

ma3yp

(define (fact n) (if (= n 0) 1 (* n (fact (- n 1

ma3yp

Ivan8209

ma3yp

Chupa

ma3yp

Ivan8209

Chupa

Ivan8209

Chupa

ma3yp

Ivan8209

ma3yp

> Запись всех выражений должна быть только инфиксной.
Это избыточное требование.
Иногда нужно иметь возможность работать с такими
операциями как с функциями от двух аргументов.
Например, как в приведённой здесь проге на haskell,
где (*) - префиксная запись инфиксной операции *

Chupa

ma3yp

Ivan8209

Chupa

Ivan8209

Ivan8209

Marinavo_0507

ma3yp

Marinavo_0507

ma3yp

Marinavo_0507

ma3yp

Marinavo_0507

ma3yp

Ivan8209

sany79

Marinavo_0507

ma3yp

Вот именно на лисп наезжать и надо.
Я тут haskell пиарю.

Ivan8209

ma3yp

Ivan8209

ma3yp

sany79

(define sqr (lambda (n) (* n n

Marinavo_0507

Marinavo_0507

sany79

 

(define fact (lambda (n) (if (< n 2) 1 (* n (fact (- n 1

(define (fact n) (if (< n 2) 1 (* n (fact (- n 1

ma3yp

Dasar

ICollection Filter (ICollection items, IsGoodHandler isGood)

{

  ArrayList result = new ArrayList; 

  foreach (object item in items)

    if (isGood(item

      result.Add(item);

  return items;

}

object currentItem = GetCurrentItem;

ICollection result = Filter(items, lamda(item) {item < currentItem});

Ivan8209

Marinavo_0507

let sqr_list l = List.map (fun x -> x*x) l

let sqr_list = List.map (fun x -> x*x)

let sqr_list =

   let sqr x = x* x

   in 

      List.map sqr

Marinavo_0507

CapitanJack

Ivan8209

ma3yp

Ivan8209

Dasar

Marinavo_0507

ma3yp

Ivan8209

Dasar

Marinavo_0507

let filterList items =

   let currentItem = getCurrentItem  in

   let filterFunc x = (x < currentItem) in

   let result = List.filter filterFunc items

   in

      result

Dasar

Ivan8209

ma3yp

Ivan8209

ma3yp

Самоучкой он изучается легко.
Даже школьником.

Ivan8209

ma3yp

oleg_n

[это] получается всего лишь модельной задачей
для развития необходимых навыков, и вместо него здесь
вполне могло быть что-то другое (хотя, то, что у тренера
получается лучше всего, безусловно, предпочтительней).

sany79

Девочки - для красоты, мальчики - просто, чтоб были.
Сможешь научить - молодец, не сможешь - ну и х$% с ним.

Kira

ma3yp

Aleksei66

После этого написано:
Потрясающе! Пользуйтесь приемами функционального программирования, и ваши программы будут мутны и нечитаемы!

Aleksei66

Дело не в паре скобок и запятой.
Дело в том, что для выражения одного и того же действия есть две равносложных записи.
Причём используются обе эти записи, но часто непонятно из каких соображений.
Вот это неприятно.

sergey_m

"Мир Лиспа" --- это одна из лучших книг, с удобным изложением.
С русским переводом.
Доступна.
http://lisp.org/alu/res-lisp-education
http://lisp.org/alu/res-lisp#scheme

Ivan8209

ma3yp

> Структурирование материала всюду одинаковое:
> арифметика, условная инструкция, циклы, массивы, функции.
Функции, арифметика, условное выражение, рекурсия, списки.
Задачки из тех же задачников могут подойти.
Возможно чуточку поработать напильником придётся
или отбросить неудобные.

Marinavo_0507

Ivan8209

ma3yp

Chupa

Marinavo_0507

ma3yp

Marinavo_0507

Chupa

squares :: Int -> [Int]

squares n = filter (\a -> a*a < n) [1..n]

allSq :: Int -> [(Int,Int,Int)]

allSq n = [(x,y,z) | x<-sq, y<-sq, z<-sq, (x*x+y*y+z*z) == n]  where sq = squares n

main = putStr (show (allSq 1000

ma3yp

Marinavo_0507

Marinavo_0507

ma3yp

Ivan8209

ma3yp

Marinavo_0507

Ivan8209

ma3yp

Chupa

ma3yp

Marinavo_0507

Marinavo_0507

Chupa

ma3yp

Marinavo_0507

ma3yp

Marinavo_0507

ma3yp

Marinavo_0507

ma3yp

Ivan8209

ma3yp

Ivan8209

Marinavo_0507

Ivan8209

Chupa

ma3yp

Marinavo_0507

Ivan8209

ma3yp

ma3yp

Ivan8209

ma3yp

Ivan8209

Ivan8209

ma3yp

ma3yp

Chupa

Ivan8209

ma3yp

Marinavo_0507

let sq_3 n =

(* Вывести все представления n в виде суммы трёх квадратов *)

  let rec try_all_squares min maxs f =

  (* перебрать все такие x, что min<=x и x*x<=maxs,

     для каждого x вызвать фунцию f (императивщина!) *)

    if min*min > maxs

    then 

    else

    begin

      f(min);

      try_all_squares (min+1) maxs f;

      

    end

  in

  let sq_2 x1 =

  (* попробуем x1 в качестве первого числа *)

    let n1 = n - x1*x1 (* остаток *) in

    let sq_1 x2 =

    (* попробуем x2 в качестве второго числа *)

      let n2 = n1 - x2*x2 in

      (* если n2 = x3*x3, где x3>=x2 , то вывести решение *)

      let rec try_x3 x3 =

        let x3_2 = x3*x3 in

        if x3_2 > n2

        then 

        else if x3_2 = n2 then

        begin

          (* нашли решение *)

          print_int x1;

          print_char ' ';

          print_int x2;

          print_char ' ';

          print_int x3;

          print_newline 

        end else try_x3 (x3+1)

      in

        try_x3 x2 (* начинаем проверять, начиная с x2 *)

    in

      try_all_squares x1 n1 sq_1

  in

    try_all_squares 1 n sq_2

;;

sq_3 1000;;

6 8 30

10 18 24

Ivan8209

Ivan8209

ma3yp

Ivan8209

Marinavo_0507

use strict;

sub try_all_squares {

  my ($min, $maxs, $f) = @_;

  if ($min*$min <= $maxs) {

    &$f ($min);

    try_all_squares ($min+1, $maxs, $f);

  }

}

sub sq_3 {

  my $n = shift;

  my $sq_2 = sub {

    my $x1 = shift;

    my $n1 = $n - $x1*$x1;

    my $sq_1 = sub {

      my $x2 = shift;

      my $n2 = $n1 - $x2*$x2;

      my $try_x3_ref = \( sub { die ""; } );

      # А как ещё в перле рекурсивную анонимную функцию сделать? 

      my $try_x3 = sub {

        my $x3 = shift;

        my $x3_2 = $x3*$x3;

        if ($x3_2 == $n2) {

          print "$x1 $x2 $x3\n";

        } elsif ($x3_2 < $n2) {

          &$$try_x3_ref ($x3+1);

        }

      };

      $$try_x3_ref = $try_x3;

      &$try_x3 ($x2);

    };

    &try_all_squares ($x1, $n1, $sq_1);

  };

  &try_all_squares (1, $n, $sq_2);

}

&sq_3 (1000);

Ivan8209

(define (sqr n) (* n n

(define (delta n a b c) (- n (apply + (map sqr (list a b c

(define (factored-p n a b c) (= 0 (delta n a b c

(set! empt '   

(define (corr n a b c)

  (cond

   > (sqr c) n) empt)

   > a b) (corr n 1 (+ 1 b) c

   > b c) (corr n 1 1 (+ 1 c

   (#t (list n a b c

(define (next n a b c)

  (if (number? n) (corr n (+ 1 a) b c) empt

(define (domain n a b c)

  (if (number? n)

      (cons (list n a b c) (apply domain (next n a b c

    '

(define (filter p lst)

  (if (null? lst) lst

    (let x (filter p (cdr lst

      (if (p (car lst (cons (car lst) x) x

(define (fctr-p l) (apply factored-p l

(define (main n) (map cdr (filter fctr-p (domain n 1 1 1

loks-po

sany79

Marinavo_0507

let sq k n =

  (* найти все представления n в виде k квадратов *)

  let rec get_all_sq m =

    let m2 = m*m in

      if m2 > n then []

        else (m, m2)::(get_all_sq (m+1

  in

  let all_sq : (int*int) list = get_all_sq 1 

    (* здесь у нас список пар вида (m, m*m где 1 <= m*m <= n *)

  in

  let rec sq_k k m2list x =

  (* найти все представления х в виде суммы k квадратов

    из списка m2list *)

    match (k, x) with

    | (0, 0) -> [[]]

    | (0, _) -> []

    | _ -> 

      (* остался случай k > 0 *)

      let k1 = k-1 in

      let rec sq_k1 (m2list : (int*int) list) x : int list list =

      (* для случая k>=1 перебираем все пары из m2list, 

        для которых m2 <= x *)

        match m2list with

        | [] -> []

        | (m, m2)::t ->

          if m2>x then []

          else

            (* попробуем пару (m, m2) *)

            let s1k1 : int list list = sq_k k1 m2list (x-m2)

            (* это список всех разложений (x-m2) на k1 квадратов *)

            in

            let s1k : int list list = List.map (fun l -> m::l) s1k1

            (* это мы к каждому разложению приписали в начало m *)

            in

              List.append s1k (sq_k1 t x)

              (* объединили список для m и для больших него квадратов *)

      in

        sq_k1 m2list x

  in

    sq_k k all_sq n

Dasar

	class Class1

	{

		static void Main(string[] args)

		{

			int n = 1000;

			int k = 3;

			List<int> squareRoots = GetSquareRoots(n);

			List<List<int>> results = new List<List<int>>

			foreach (Permutation permutation in new Permutations(squareRoots.Count, k

			{

				List<int> sequence = new List<int>

				foreach (int index in permutation)

					sequence.Add(squareRoots[index]);

				int sum = 0;

				foreach (int item in sequence)

					sum += item;

				

				if (sum == n)

				{

					results.Add(sequence);

				}

			}

			//output

			foreach (List<int> result in results)

			{

				foreach (int item in result)

				  Console.Write(Math.Sqrt(item).ToString + " ");

				Console.WriteLine;

			}

		}

		static List<int> GetSquareRoots(int n)

		{

			List<int> squareRoots = new List<int>

			for (int i = 1; ; ++i)

			{

				int square = i * i;

				if (square > n)

					break;

				squareRoots.Add(square);

			}

			return squareRoots;

		}

	}

	public class Permutation: List<int> { }

	public class Permutations: IEnumerable

	{

		public Permutations(int n, int k)

		{

			this.k = k;

			this.n = n;

		}

		int n;

		int k;

		static int GetChangeableIndex(Permutation permutation, int max)

		{

			for (int i = permutation.Count - 1; i >= 0; --i)

			{

				if (permutation[i] < max - 1)

					return i;

				max = permutation[i];

			}

			return -1;

		}

		static Permutation NextPermutation(Permutation permutation, int max)

		{

			int index = GetChangeableIndex(permutation, max);

			if (index == -1)

				return null;

			permutation[index] = permutation[index] + 1;

			for (int i = index; i < permutation.Count - 1; ++i)

			{

				permutation[i + 1] = permutation[i];

			}

			return permutation;

		}

		static Permutation FirstPermutation(int k)

		{

			Permutation result = new Permutation;

			for (int i = 0; i < k; ++i)

				result.Add(i);

			return result;

		}

		IEnumerator System.Collections.IEnumerable.GetEnumerator

		{

			for (Permutation permutation = FirstPermutation(k); permutation != null; 

                                         permutation = NextPermutation(permutation, n

				yield permutation;

		}

	}

Marinavo_0507

Marinavo_0507

Dasar

Marinavo_0507

Dasar

ZaAp

sany79

buka

ZaAp

ZaAp

Marinavo_0507

sergey_m

перлу и прочим php

sergey_m

solteron

Когда-то мне в СУНЦе один преподатель сказал такую вещь: образование должно быть расчитано с тем условием, что область его применения будет 10-20 лет спустя. Прошло семь лет... Мне сейчас никаким ..не уперлись извращенные алгоритмы сортировки в великом множестве, а также с какого адреса начинается видеопамять в досе.

Chupa

buka

Ivan8209

buka

Ivan8209

NPX EXCEPTION OVERFLOW DISABLE

ROUNDING TO -INF

Akuri

хитрожопых алгоритмов

buka

Dasar

sergey_m

Использование $ и @ в именах переменных - это фактически венгерская нотация. Есть мнение, что венгерская нотация мешает при написании сложных программ.

Dasar

sergey_m

#define begin {

#define end }

freezer

А самый зыкий язык Logo, потому что на нем могут программировать первоклассники.

Ivan8209

ma3yp

Smaug

sany79

Ivan8209

ддд