name + arg count

Hello,is there something wrong with this code?

(defn <- [e1 e2] {"lt" [e1 e2]}) (defn <_ [e1 e2] (<- e1 e2))

is something wrong with the names of the functions?

i run it , it works and when i re-run it i get a stack overflow,invoke static ,with that name of the function,maybe its something class related i use local repo with lein install i don't know,thank you

It may be that the <- is being internally munged into some other name where both of those characters are being turned into others that are legal in JVM class names, and the - is turned into _, so perhaps both <- and <_ turn into the same name in the underlying JVM classes.

But I do not get any stack overflow error when I try to call those functions in a REPL, so I am not able to reproduce the problem you are seeing.

Clojure or ClojureScript? Version? Do you have a reproducible test case using a minimal setup?

i will try that now , i use [org.clojure/clojure "1.10.1"] jdk 14

looks like the problem happens only when the one call the other, else they both work

i will retry tomorrow its so late here thank you for your help 🙂

Sure. It is easiest for someone to help if you can make a short test sequence that exhibits the problem, and they can try it on their system, and if you and they get different results, try to determine what the difference is in your setups that leads to the difference in behavior.

yeah, I think avoiding any functions that would munge to one another (see clojure.core/munge) is best policy

ins)user=> (munge '<-)
_LT__
(cmd)user=> (munge '<_)
_LT__

I bet its the self calls which break due to munging of the self call when compiled

yes when one call another happens ,thank you i didn't know that i will check it tomorrow

Is there a non-intrusive way to show some progress of my map function? I want to know how many items from my collection have been processed, like 123/1000, without changing my mapping function nor using map-indexed.

First time trying to run lein repl on Heroku. Pretty standard Luminus stack. It works fine locally:

lein repl
nREPL server started on port 42939 on host 127.0.0.1 - 
REPL-y 0.4.4, nREPL 0.8.0-alpha5
Clojure 1.10.1
OpenJDK 64-Bit Server VM 11.0.6+10-post-Debian-1deb10u1
    Docs: (doc function-name-here)
          (find-doc "part-of-name-here")
  Source: (source function-name-here)
 Javadoc: (javadoc java-object-or-class-here)
    Exit: Control+D or (exit) or (quit)
 Results: Stored in vars *1, *2, *3, an exception in *e

user=> 

heroku run lein repl --app foo-app
 ›   Warning: heroku update available from 7.41.1 to 7.42.3.
Running lein repl on ⬢ foo-app... up, run.9192 (Hobby)
Downloading Leiningen to /app/.lein/self-installs/leiningen-2.9.1-standalone.jar now...
  % Total    % Received % Xferd  Average Speed   Time    Time     Time  Current
                                 Dload  Upload   Total   Spent    Left  Speed
100   637  100   637    0     0   4615      0 --:--:-- --:--:-- --:--:--  4615
100 13.9M  100 13.9M    0     0  27.3M      0 --:--:-- --:--:-- --:--:-- 27.3M
Retrieving lein-shadow/lein-shadow/0.2.0/lein-shadow-0.2.0.pom from clojars
(truncated)
Retrieving ring/ring-mock/0.4.0/ring-mock-0.4.0.jar from clojars
nREPL server started on port 43521 on host 127.0.0.1 - 
nick@tower  app git:(master) 

(import java.util.List)
=> java.util.List
(definterface A
  (a [^List a])
  (a [^Integer a]))
=> dev.mccue.class_system.A
(reify A
  (a [^List a])
  (a [^Integer a]))
Syntax error (ClassNotFoundException) compiling reify* at (C:\Users\Ethan\AppData\Local\Temp\form-init10044805717733694756.clj:1:1).
java.lang.List

interesting error to say the least

Where might it be getting java.lang.List from?

@rickmoynihan Maybe i am missing some context - but you can just use a normal map with a namespaced keyword

{::instance library-stuff}

and just have the practice that you don't dive into keys namespaced by your.company.subpackage.whatever outside of the module you have them in

just like python's __field

and it should be pretty easy to enforce because noone wants to write out the whole path of a namespace

then just do the good ol' "namespace function as object methods" trick

and bam, you've newtype'd the thing without needing an actual nominal type

and you can use stuff like this to discourage leaks even more https://github.com/vlaaad/blanket

you only need a deftype/reify for protocols that can't be extended by metadata

oh, I made this

haha

and if you need deftype it is similar

just have a inner field for wrapping the library data structure

another alternative is react's approach: using a name like __SECRET_DOM_DO_NOT_USE_OR_YOU_WILL_BE_FIRED

same deal that fields you just consider to be namespace only within your team

or that^

which i will admit to doing twice yesterday

(definterface ClassInstance
  (internalUseOnlyGetInstanceInfo []))

(keyword (str *ns*)
           (str "internalOnlyMarkerThatTheClassCameFromMe-"
                (name (:name class))
                "😍"
                (class-identity class))))

though i might not reasonably need the second one

Is anybody aware of a clojure library that like priority map allows a map to be sorted by key, but will also alow an ordering on keys to be defined in the case that the two values in a map are the same?

So perhaps like a multiset is, versus a set, you are hoping to use a 'multi-priority-map'?

I haven't heard of one of those implemented already, that I can recall off hand.

Hi everyone. I’m trying to figure out the logic to a little app I’m working on. The app is actually broader than this, but I’ve got a little chunk of the logic cut out from it, that I need to figure out how to do. So there’s this little functionality where users answer some questions and get points per question answered. And this is somewhat what points system looks like:

(def points-system [{:points 1 :threshold 5}
                    {:points 3 :threshold 10}
                    {:points 7}])

(def points-system [{:points 1 :threshold 5}
                    {:points 2 :threshold 10}
                    {:points 7}])


(defn calculate-points [total-answers]
  (let [state                      (atom {:total-answers total-answers
                                          :total-points  0})
        threshold-points-handler   (butlast points-system)
        consecutive-points-handler (last points-system)]
    (doseq [handler threshold-points-handler]
      (swap! state assoc
             :total-answers (- (:total-answers @state)
                               (:threshold handler))

             :total-points (+ (:total-points @state)
                              (* (:threshold handler) (:points handler)))))

    (while (> (:total-answers @state) 0)
      (swap! state assoc
             :total-points (+ (:total-points @state)
                              (:points consecutive-points-handler))
             :total-answers (dec (:total-answers @state))))
    (println @state)))


(defn -main [& args]
  (-> 100 calculate-points println))

what's the best way to debug slow startup time for a clojure program? from what I can tell, the delays all occur before any of the instrumentation I'm putting into my program to attempt to identify potential causes. Is there a way to instrument/view more of the compiler/classpath phase?

look at your dependencies and slash them mercilessly

@afoltzm also https://clojure.org/guides/dev_startup_time