Из заданного целого числа n удалить все нули

@Kirimon · Регистрация: 14.11.2018

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

Написать программу, которая из заданного целого числа n удаляет все нули

@Catstail · 14.11.2018, 17:00

HomeLisp:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
(defun n2l (n &optional (acc nil))
  (if (zerop n) acc (n2l (\ n 10) (if (zerop (rem n 10)) acc (cons (rem n 10) acc)))))
 
(defun l2n (l &optional (acc 0))
  (if (null l) acc (l2n (cdr l) (+ (car l) (* acc 10)))))
 
(defun task (n)
   (l2n (n2l n)))
 
;; Или так
 
(defun task (n)
  (implode (remove 0 (explode n))))

@_sg · 14.11.2018, 17:49

как вариант:

Lisp
1
2
3
4
5
6
7
8
(defun drop-zero (n)
  (parse-integer 
   (coerce (loop for c across (write-to-string n)
                 unless (eq c #\0) collect c)
           'string)))
 
> (drop-zero 102030)
123

@Kirimon · 14.11.2018, 18:01 **[ТС]**

Catstail, спасибо!

Добавлено через 43 секунды
_sg, спасибо!

@_sg · 14.11.2018, 18:35

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
(defun drop-zero (n)
  (digit-int (int-digit n)))
 
(defun int-digit (n &optional ac &aux (r (rem n 10)))
  (if (zerop n) ac
      (int-digit (truncate n 10) (if (zerop r) ac (cons r ac)))))
 
(defun digit-int (w &optional (ac 0))
  (if (null w) ac
      (digit-int (cdr w) (+ (car w) (* ac 10)))))
 
> (drop-zero 102030)
123

Добавлено через 8 минут

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
(defun drop-zero (n)
  (digit-int (int-digit n)))
 
(defun int-digit (n)
  (loop with r do (setf (values n r) (truncate n 10))
        unless (zerop r) collect r into ac until (zerop n)
        finally (return (nreverse ac))))
 
(defun digit-int (w &optional (ac 0))
  (if (null w) ac
      (digit-int (cdr w) (+ (car w) (* ac 10)))))
 
> (drop-zero 102030)
123

Добавлено через 5 минут

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
(defun drop-zero (n)
  (digit-int (int-digit n)))
 
(defun int-digit (n &optional ac)
  (cond ((zerop n) ac)
        (t (multiple-value-bind (q r) (truncate n 10)
             (int-digit q (if (zerop r) ac (cons r ac)))))))
 
(defun digit-int (w &optional (ac 0))
  (if (null w) ac
      (digit-int (cdr w) (+ (car w) (* ac 10)))))
 
> (drop-zero 102030)
123

Добавлено через 3 минуты

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
(defun drop-zero (n)
  (digit-int (int-digit n)))
 
(defun int-digit (n &optional ac)
  (cond ((zerop n) ac)
        (t (multiple-value-bind (q r) (truncate n 10)
             (int-digit q (if (zerop r) ac (cons r ac)))))))
 
(defun digit-int (w &optional (ac 0))
  (if w (digit-int (cdr w) (+ (car w) (* ac 10))) ac))
 
> (drop-zero 102030)
123

Добавлено через 7 минут

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
(defun drop-zero (n)
  (digit-int (int-digit n)))
 
(defun int-digit (n) 
  (loop for c across (write-to-string n)
        unless (eq c #\0) collect (digit-char-p c)))
 
(defun digit-int (w &optional (ac 0))
  (if w (digit-int (cdr w) (+ (car w) (* ac 10))) ac))
 
> (drop-zero 102030)
123

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Kirimon 0 / 0 / 0 Регистрация: 14.11.2018 Сообщений: 4

	Из заданного целого числа n удалить все нули 14.11.2018, 16:23. Показов 735. Ответов 4 Метки нет (Все метки) Написать программу, которая из заданного целого числа n удаляет все нули 0

@Kirimon 0 / 0 / 0 Регистрация: 14.11.2018 Сообщений: 4
	14.11.2018, 18:01 [ТС]
	Catstail, спасибо! Добавлено через 43 секунды _sg, спасибо! 0