Harshad or Niven series: Difference between revisions

Content deleted Content added
Hout (talk | contribs)
→‎{{header|Python}}: Added a sibling label (Procedural + Functional)
Line 2,187: Line 2,187:
#function which creates a list of numbers from input
#function which creates a list of numbers from input
(de getN (N)
(de getN (N)
(mapcar any (chop N)) )
(mapcar format (chop N)) )

#function to delete NIL from the entire list
(de delNIL (L)
(delete NIL L T) )


#This function generates niven number list
#This function generates niven number list
(de nivGen (R N)
(de nivGen (R N)
(delNIL (mapcar niven (range R N))) )
(extract niven (range R N)) )


#print 1st 20 niven numbers and 1st niven number greater than 1000
#print 1st 20 niven numbers and 1st niven number greater than 1000