linq_elementoperators.clj

(ns clj-linq.linq-elementoperators
  (:require [clj-linq.data :refer :all]))

;; linq58: First - Simple
(defn linq58 []
  (let [products products-list
        product-12 (->> products
                        (filter #(= (:product-id %) 12))
                        first)]
    (println product-12)))

;; linq59: First - Condition
(defn linq59 []
  (let [strings ["zero", "one", "two", "three", "four",
                 "five", "six", "seven", "eight", "nine"]
        starts-with-o (first (filter #(= (first %) \o) strings))]
    (println "A string starting with 'o':" starts-with-o)))

;; linq61: FirstOrDefault - Simple
(defn linq61 []
  (let [numbers []
        first-num-or-default (get numbers 0 0)]
    (println first-num-or-default)))

;; linq62: FirstOrDefault - Condition
(defn linq62 []
  (let [products products-list
        product-789 (->> products
                         (filter #(= (:product-id %) 789))
                         first)]
    (println "Product 789 exists:" (not= product-789 nil))))

;; linq64: ElementAt
(defn linq64 []
  (let [numbers [5 4 1 3 9 8 6 7 2 0]
        fourth-low-num (->> numbers
                            (filter #(> % 5))
                            second)]
    (println "Second number > 5:" fourth-low-num)))

(def examples [linq58 linq59 linq61 linq62 linq64])