user1785730's questions

Estou tentando seguir este tutorial . Aqui está meu retorno:

(def cb (proxy [java.lang.Object GLFWKeyCallbackI] []
          (invoke [window keycode _ action _]
            (when (and (= keycode GLFW/GLFW_KEY_ESCAPE)
                       (= action GLFW/GLFW_PRESS))
              (GLFW/glfwSetWindowShouldClose window true)))))

e aqui eu registro:

(GLFW/glfwSetKeyCallback window cb)

O que me dá esse erro:

Execution error (UnsupportedOperationException) at lwjgl_intro.core.proxy$java.lang.Object$GLFWKeyCallbackI$84f3fd50/address (REPL:-1).
address

Meu código completo está aqui .

Por que estou recebendo esse erro?

EDIT: Este é o trecho de código do tutorial linkado acima:

    glfwSetKeyCallback(window, (window, key, scancode, action, mods) -> {
        if ( key == GLFW_KEY_ESCAPE && action == GLFW_RELEASE )
            glfwSetWindowShouldClose(window, true); // We will detect this in the rendering loop
    });

Considere este trecho de código:

(defn foo []
  (let [line (apply str (repeat 2 \.))
        lines (into [] (repeat 2 line))]
    (for [x lines] (println x)) ; this doesn't print
    (loop [remaining [[1 2] [3 4]]]
      (if (empty? remaining)
        (for [y lines] (println y)) ; but this does print
        (recur (rest remaining))))))

A saída da execução fooé:

..
..
(nil nil)

Assim, a linha comentada com this não imprime e não produz saída. Na verdade, posso remover essa linha e obter a mesma saída.

O resultado que eu esperava obter é:

..
..
..
..
(nil nil)

Quando removo todo o loop/recur, a linha funciona como esperado:

(defn foo []
  (let [line (apply str (repeat 2 \.))
        lines (into [] (repeat 2 line))]
    (for [x lines] (println x)))) ; now it prints

Rendimentos

..
..
(nil nil)

como esperado. Por que o loop/recur impede o for/println de gerar saída?

(let [ truthys (filter #(filter-func %) coll)
       falsys (filter #(not filter-func %) coll)]

Este código percorre coll duas vezes e aplica filter-func duas vezes a cada elemento. Eu estava pensando, existe uma maneira de filtrar coll em truthys e falsys de uma só vez?

user=> ((fn [x] x) 5)
5
user=> (#(%) 5)
Execution error (ClassCastException) at user/eval1576$fn (REPL:1).
class java.lang.Long cannot be cast to class clojure.lang.IFn (java.lang.Long is in module java.base of loader 'bootstrap'; clojure.lang.IFn is in unnamed module of loader 'bootstrap')

Eu esperava que as duas funções anônimas fossem equivalentes. Eu meio que recebo o erro no segundo caso: a avaliação da função anônima produz (5), o que produz exatamente o mesmo erro.

No entanto, por que não estou recebendo esse erro no primeiro caso? Qual é a diferença?

Tenho dados em um arquivo de texto formatado assim:

1    2
3    4
5    6
7    8
9    0

Quero criar uma lista para cada coluna, assim:

((1 3 5 7 9) (2 4 6 8 0))

Na verdade, eu encontrei uma solução que funciona:

(defn make-lists []
  (let [lines (clojure.string/split-lines (slurp "input"))]
    (let [l1 (map #(parse-long (first (clojure.string/split % #" "))) lines)
          l2 (map #(parse-long (nth (clojure.string/split % #" ") 3)) lines)]
      (list l1 l2))))

No entanto, acho que há alguns problemas com essa solução. Não tenho certeza de como mapfunciona por baixo dos panos, mas temo que isso resulte em duas iterações sobre a entrada quando, teoricamente, uma deveria ser suficiente.

Infelizmente, há mais de um espaço que separa os dois valores em cada linha nos dados de entrada. E clojure.string/splitproduz um resultado para cada um deles. Portanto, tenho essa procura arbitrária nth 3por l2 no meu código da qual gostaria de me livrar.

Eu apreciaria qualquer ideia de como melhorar esse código.

Este é um exemplo mínimo reproduzível:

#include <memory>
#include <SFML/Graphics.hpp>
 
class Label
{
    public:
        Label(sf::String msg, float y)
        {
            if (!font.loadFromFile("arial.ttf"))
            {
                printf("Error loading font!\n");
            }

            text.setString(msg);
            text.setPosition(0, y);
        }

        sf::Font font;
        sf::Text text = sf::Text("Label", font, 40);
};

int main()
{
    sf::RenderWindow window(sf::VideoMode(800, 600), "SFML window");
 
    // label is a local variable
    Label label1 = Label("Label1", 0);

    // label is inside a pointer
    std::unique_ptr<Label> label2 = std::make_unique<Label>("Label2", 50);

    struct Labelstruct
    {
        Label label;
    };

    // label is inside a struct
    struct Labelstruct label3 = { Label("Label3", 100) };

    // label is inside a struct inside a pointer:
    std::unique_ptr<Labelstruct> label4 = std::make_unique<Labelstruct>(Label("Label4", 150));
 
    while (window.isOpen())
    {
        sf::Event event;
        while (window.pollEvent(event))
        {
            if (event.type == sf::Event::Closed)
                window.close();
        }
 
        window.clear();

        window.draw(label1.text);
        window.draw(label2->text);
        window.draw(label3.label.text);
        window.draw(label4->label.text);

        window.display();
    }
 
    return EXIT_SUCCESS;
}

Explicação: A classe Labelencerra um sf::Text. Então eu uso quatro maneiras diferentes de inicializá-lo e desenhá-lo:

1. Uma variável local -> sem problemas
2. Um ponteiro -> sem problemas
3. Dentro de uma struct -> sem problemas
4. Um ponteiro para a estrutura que contém o rótulo -> PROBLEMA

"Label4" não está desenhado. Posso ver um ponto onde o rótulo deveria aparecer:

Por que um ponteiro para uma struct causa esse problema?

Para sua conveniência, este é o comando que usei para compilar a coisa:

g++ test.cc -std=c++20 -lsfml-window -lsfml-system -lsfml-graphics

A documentação oficial para FetchContent parece mais uma visão geral. Estou procurando uma referência completa, no entanto. cmake --help-module FetchContentproduz o mesmo texto que o link acima.

Em algum projeto eu vi isso, por exemplo: GIT_SHALLOW TRUE. Neste contexto:

FetchContent_Declare(
    box2d
    GIT_REPOSITORY https://github.com/erincatto/box2d.git
    GIT_TAG 7b273b12409252d247b89940d29a8aab0386f570
    GIT_SHALLOW TRUE
    GIT_PROGRESS TRUE
)

Gostaria de procurar a documentação dele. Há outras coisas para as quais também não consegui encontrar documentação.

Tenho dois textos em uma coluna e quero que o segundo fique alinhado à direita:

first
                                                 second

Como eu posso fazer isso?

Tentei agrupar o segundo texto em uma linha ou coluna, sem sucesso. Isto é o que tenho até agora:

    Column(modifier = Modifier.fillMaxWidth()) {
        Text(text = "first")
        Column(horizontalAlignment = Alignment.End) {
            Text(text = "second")
        }
    }