Skip to content

Latest commit

 

History

History
105 lines (85 loc) · 2.59 KB

File metadata and controls

105 lines (85 loc) · 2.59 KB

want to get closer to high salary Clojure and Functional Programming

<List>

  • Practice to deal sequences with ->> reduce apply

  • Run by Clojure CLI version 1.11.1.1200 in Replit

  • Codes and Output

    Codes : sequence-practice.clj
    (ns sequence-practice.ns
      (:require [clojure.string :as str]))
    (defn odd-sum
      "Calculate the sum of odd numbers in a sequence."
      [numbers]
      (->>
        numbers
        (filter odd?)
        (reduce +)))
    
    (defn even-sum
      "Calculate the sum of even numbers in a sequence."
      [numbers]
      (reduce +
        (filter even? numbers)))
    
    (defn concatenate
      "Concatenate multiple strings with spaces in between."
      [& text]
      (apply str/join " " text))
    (def num-sequence (range 1 11))
    (def str-sequence ["Live" "for" "your" "smile" "and" "die" "for" "your" "kiss"])
    (defn -main
      "Main function to demonstrate sequence processing."
      []
      (println (odd-sum num-sequence))
      (println (even-sum num-sequence))
      (println (concatenate str-sequence)))
    
    (-main)
    Output
    25
    30
    Live for your smile and die for your kiss
  • This was my first Clojure code, but not even a warm-up. I need something more legit!

    (println "Hello World!")
  • Written by ChatGPT

  • Run by Clojure CLI version 1.11.1.1200 in Replit

  • Codes and Output

    Codes : EvenNums.clj
    ; Define a function to filter even numbers
    (defn filter-even [nums]
      ; Use the even? function to filter only even numbers
      (filter even? nums))
    
    ; Define the input list of numbers
    (def numbers [1 2 3 4 5 6 7 8 9 10])
    
    ; Use the filter-even function to filter even numbers
    (def even-numbers (filter-even numbers))
    
    ; Print the result
    (println "Even numbers in the list:")
    (println even-numbers)
    Output
    (2 4 6 8 10)