drkameleon

#!/usr/bin/env arturo

do {grafito.art}   

do [
    lemma: function [wrd, lng, ps][
        f: form.new.unique [name: wrd]
        res: word #[
            lang: to :string lng,
            pos: to :string ps,

drkameleon

{
    "nand": 2,
    "clamp": 2,
    "info": 1,
    "fdiv": 2,
    "atanh": 1,
    "regex?": 1,
    "move": 2,
    "all?": 1,
    "first": 1,

drkameleon

Created: temp/

>> copy

copy is working well!

>> copy.directory - with empty folders

copy empty directory is working well!

drkameleon

Created: temp/

>> copy

Hello, world!


>> copy.directory - with empty folders

temp/dest/file.txt

drkameleon

labels: ["a", "b", "c", "d", "e", "f", "g", "h"]
items: ["uno", "dos", "tres", "Uno", "perversión", "ábaco", "abismo", "aberración"]

dic: function []-> #.raw flatten @[couple labels items]
revdic: function []-> #.raw flatten @[couple items labels]

verify: function [what][
    toDo: [sort] ++ what

    bl: do toDo ++ [items]

drkameleon

RC: "https://rosettacode.org"
GreenLine: color #green repeat "=" 50

sanitizeUrl: function [url]-> replace replace url "pagefrom=" "" "%27" "'"
filterLines: function [lines, pattern]-> select lines 'line [contains? line pattern]

getNextPageUrl: function [lines][
    loop filterLines lines {next page</a>} 'line [
        return sanitizeUrl first match line {/pagefrom=(.+)#mw-pages/}
    ]

drkameleon

a: #[name: "John", surname: "Doe"]
b: #[name: "Jane", surname: "Doe", address: #[country: "Spain", city: "Madrid"]]
c: #[name: "Bill", age: 36]
a: #[name: "John", surname: "Doe"]
b: #[name: "Jane", surname: "Doe", address: #[country: "Spain", city: "Madrid"]]
c: #[name: "Bill", age: 36]
a: #[name: "John", surname: "Doe"]
b: #[name: "Jane", surname: "Doe", address: #[country: "Spain", city: "Madrid"]]
c: #[name: "Bill", age: 36]
a: #[name: "John", surname: "Doe"]

drkameleon

print ---
=========================
Brainf*ck compiler
In Arturo
=========================
---

tape:               [0]
jumps:              #[]
dataPointer:        0

drkameleon

memSize: 100

interpret: function [code][
    m: map 0..memSize []->0
    p: 0
    continue: true
    replace 'code "," "set m p input ------ "
    replace 'code ">" "inc 'p "
    replace 'code "<" "dec 'p "
    replace 'code "+" "set m p (get m p)+1 "

drkameleon

// To be copy-pasted in the "Following" Twitter page

var profiles = $(".ProfileCard.js-actionable-user");
for (var i=0; i<profiles.length; i++) {
    var p = profiles[i];
 
    var status = $($(p).find(".FollowStatus")[0]).text().trim();
    var button = $(p).find(".user-actions-follow-button");
    if (status!="follows you") $(button).trigger('click');
}