souenzzo

import React from 'react';
import { Alert, AsyncStorage, Text, View, Button, Keyboard } from 'react-native';
import { CheckBox, Header, List, ListItem, FormLabel, FormInput } from 'react-native-elements';

const defaultStorage = '@My:key';
const initialState = {
  input: '',
  count: 0,
  dones: true,
  deleteds: false,

souenzzo

const fibsync = n => {
  if (n <= 1) return 1
  const a = fibsync(n - 1)
  const b = fibsync(n - 2)
  return a + b
}

const fibasync = async (n) => {
  if (n <= 1) return 1

souenzzo

// Programação "OO Tradicional"

const express = require('express')
const app = express()

app.get('/', indexGet)
app.post('/', indexPost)

// Programação "Data Driven"

souenzzo

127.0.0.1  facebook.com
127.0.0.1  m.facebook.com
127.0.0.1  www.facebook.com
127.0.0.1  fb.com
127.0.0.1  connect.facebook.net

souenzzo

(defn str->index
  [s]
  (let [[nodes & edges] (string/split-lines s)
        split #(string/split % #",")
        nodes (split nodes)]
    (reduce (fn [index [node edges]]
              (let [ke (zipmap nodes edges)]
                (into index (for [[k v] ke
                                  :when (not (string/blank? v))]
                              [[node k] (bigint v)]))))

souenzzo

Keybase proof

I hereby claim:

• I am souenzzo on github.
• I am souenzzo (https://keybase.io/souenzzo) on keybase.
• I have a public key ASD0ZWrUwMXEiq6v92gweqkx3Bc0RIixtMqfbhEdEdLrMQo

To claim this, I am signing this object:

souenzzo

{ "foo": "bar"
, "var": [ 1 
         , 2 
         , 3
         ]
}

souenzzo

(require '[datomic.api :as d])

(defn undo-transact
  [db tx]
  (let [ref? (set (d/q '[:find [?ident ...] :where [?e :db/ident ?ident] [?e :db/valueType :db.type/ref]] db))
        ident (into {} (d/q '[:find ?id ?ident :where [?id :db/ident ?ident]] db))
        hist (d/history db)
        data-from-tx (d/q '[:find ?e ?a ?v ?tx ?op
                            :in $ ?tx
                            :where

souenzzo

#!/usr/bin/env clj
;; also works: #!/usr/bin/env lumo

;; quoting; still not work on cljs
(let [unreserved? (into (sorted-set)
                        (comp (map (fn [[k v]]
                                     (prn (mapv int [k v]))
                                     (range (int k) (inc (int v)))))
                              cat (map char))
                        {\a \z \A \Z \0 \9 \- \- \. \. \_ \_ \~ \~})

souenzzo

The problem

Some queries behave differently depending on whether the transactor is remote or not.

The "alternative query" (QUERY2 on code) not show this bug. But QUERY1 do.

Steps do reproduce

Start a "free" transactor