Определить номер в списки последнего положительного числа

@Byka · Регистрация: 19.10.2015

Студворк — интернет-сервис помощи студентам

Определить номер в списки последнего положительного числа Scheme и Haskell (извините, что не по теме). Считается, что списки имеют многоуровневую структуру

Добавлено через 11 часов 3 минуты
Помогите написать программу на двух языках, очень надо. Сегодня сдавать

@Catstail · 20.10.2015, 11:11

Лисп:

Lisp

(defun last-pos (lst &optional (c 0) (p 0))
  (cond ((null lst) p)
        ((plusp (car lst)) (last-pos (cdr lst) (+ c 1) c))
        (t (last-pos (cdr lst) (+ c 1) p))))
 
==> last-pos
 
(last-pos '(1 2 3 0 -6))
 
==> 2
 
(last-pos '(1 2 3 0 -6 8))
 
==> 5

Не по теме:

Последний раз:

Haskell

1 2	lastPos :: [Int] -> Int lastPos x = (snd . head. reverse) $ filter (\ (a,b) -> a>0) $ zip x [1..]

@Byka · 20.10.2015, 11:27 **[ТС]**

Спасибо

@_Ivana · 21.10.2015, 05:08

Lisp

(defn f (l)
    (defn go (i l)
        (cond (null? l) 0
              ((def r (go (+ 1 i) (cdr l))) (cond (> (car l) 0) (max i r) r))))
    (go 0 l))
 
(printLn (f '(1 2 3 0 -6)))
(printLn (f '(1 2 3 0 -6 8)))
 
........
 
2
5

@castorsky · 21.10.2015, 12:38

Не по теме:

_Ivana, зачем везде printLn?

@_Ivana · 21.10.2015, 16:31

Не по теме:

castorsky, это же не скан пошагового РЕПЛа как у Catstail, это полный текст программы, подаваемой на вход интерпретатору. И чтобы он вывел не только результат последнего выражения, а и все нужные промежуточные, их надо принудительно печатать. Хотя вы правы, последний принт можно убрать, но если не убирать, то удобнее добавлять новые формы после него.

@Byka 0 / 0 / 0 Регистрация: 19.10.2015 Сообщений: 50
		1
	Scheme Определить номер в списки последнего положительного числа 20.10.2015, 09:45. Показов 451. Ответов 5 Метки нет (Все метки) Определить номер в списки последнего положительного числа Scheme и Haskell (извините, что не по теме). Считается, что списки имеют многоуровневую структуру Добавлено через 11 часов 3 минуты Помогите написать программу на двух языках, очень надо. Сегодня сдавать 0

@Byka 0 / 0 / 0 Регистрация: 19.10.2015 Сообщений: 50
	20.10.2015, 11:27 [ТС]	3
	Спасибо 0

@castorsky
	21.10.2015, 12:38 #5
	Не по теме: _Ivana, зачем везде printLn? 0

@_Ivana
	21.10.2015, 16:31 Scheme Определить номер в списки последнего положительного числа #6
	Не по теме: castorsky, это же не скан пошагового РЕПЛа как у Catstail, это полный текст программы, подаваемой на вход интерпретатору. И чтобы он вывел не только результат последнего выражения, а и все нужные промежуточные, их надо принудительно печатать. Хотя вы правы, последний принт можно убрать, но если не убирать, то удобнее добавлять новые формы после него. 0

Опции темы