gistfile1.nlogo

to-report list-items-greater-than [ cutoff listA ]

  ;; Initially ensure the list is reverse sorted.
  set listA reverse (sort listA)

  let result []
  foreach listA [
    if ?1 >= floor cutoff [      
      set result lput ?1 result 
    ]
  ]
  
  report result

end