Определите функцию (ЧЕРТА n), печатающую слово и n раз звездочку

@Dron16 · Регистрация: 03.11.2009

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

Определите функцию (ЧЕРТА n), печатающую слово и n раз звездочку
Прошу помощи в написании программы. Смог сделать только вывод звездочки. Необходимо сделать так что бы выводило Имя и количество звёздочек которые задал пользователь.
Пример: Andrey****

Код:

Lisp

1
2
3

(defun sherta (n) (cond ((= n 0) t)
(t (princ "*")      ;печатает * ;
(sherta (- n 1)))))        ;рекурсия ;

@Catstail · 11.02.2015, 12:19

Сообщение от Dron16

Определите функцию (ЧЕРТА n), печатающую слово и n раз звездочку

- какое слово? Его нет в списке параметров.

@Dron16 · 11.02.2015, 12:26 **[ТС]**

Catstail, Имя Andrey.
Результат должен выглядеть примерно так: Andrey****

@Catstail · 11.02.2015, 12:28

Lisp

(defun f (name n &optional flg)
  (cond ((null flg) (print name) (f name n t))
        ((plusp n) (print '*) (f name (- n 1) t))))
 
        
 
==> f
 
(f 'Andrew 6)
Andrew******
 
==> NIL

@Dron16 · 11.02.2015, 12:42 **[ТС]**

Catstail, Не могли бы пожалуйста подсказать как сделать, что бы ответ выдавал в строчку
Пример: Вот так - Andrew******
просто ответ у меня выдает вот так:
Andrew
*
*
*
*
*
*

http://rghost.ru/8KYPSDkVD

@Catstail · 11.02.2015, 14:32

Lisp

(defun f (name n &optional flg)
  (cond ((null flg) (princ name) (f name n t))
        ((plusp n) (princ '*) (f name (- n 1) t))
        (t (terpri))))

transformator.t · 11.02.2015, 14:42

Lisp

INSOMNIA> (defun folly (name times char)
            (format () "~A~v@{~A~:*~}" name times char))
FOLLY
INSOMNIA> (folly 'такой-вася 5 #\*)
"ТАКОЙ-ВАСЯ*****"

@castorsky · 11.02.2015, 19:23

Сообщение от Dron16

Определите функцию (ЧЕРТА n), печатающую слово и n раз звездочку

Lisp

;; racket-lang.org
(define (foo word n)
  (for ([i (cons word (make-list n '*))])
    (printf "~a" i)))

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,644 Записей в блоге: 13
	11.02.2015, 12:19	2
	Сообщение от Dron16 Определите функцию (ЧЕРТА n), печатающую слово и n раз звездочку - какое слово? Его нет в списке параметров. 0

@Dron16 3 / 3 / 0 Регистрация: 03.11.2009 Сообщений: 208
	11.02.2015, 12:26 [ТС]	3
	Catstail, Имя Andrey. Результат должен выглядеть примерно так: Andrey**** 0

@Dron16 3 / 3 / 0 Регистрация: 03.11.2009 Сообщений: 208
	11.02.2015, 12:42 [ТС]	5
	Catstail, Не могли бы пожалуйста подсказать как сделать, что бы ответ выдавал в строчку Пример: Вот так - Andrew****** просто ответ у меня выдает вот так: Andrew * * * * * * http://rghost.ru/8KYPSDkVD 0

	11.02.2015, 19:23