#lang racket
(display "Лабораторная работа №4 ")
(newline)
(display "Количество нулевых элементов в списке: ")
(define (sum0 x n)
  (if (null? x) n // если список пуст, то выводим кол-во нулевых элементов
  (if (= (car x) 0) // если список не пустой и первый элемент = 0,
      (sum0 (cdr x) (+ n 1)) // тогда рекурсивно вызываем функцию с отбрасыванием первого элемента в списке и увеличением значения кол-ва элементов на 1
      (sum0 (cdr x) n) // иначе рекурсивно вызываем функцию с отбрасыванием первого элемента в списке
       )
  )
  )

// пример входной строки
(sum0 (list 2 45 0 9) 0) // название списка (sum0), сам список (х), количество нулевых элементов (n)