lepinekong

table: {Bitcoin         | BTC   | Digital gold                             
Ethereum        | ETH   | Programmable contracts and money         
Bitcoin Cash    | BCH   | Bitcoin clone                            
Ripple          | XRP   | Enterprise payment settlement network    
Litecoin        | LTC   | Faster Bitcoin                           
Dash            | DASH  | Privacy-focused Bitcoin clone            
NEO             | NEO   | Chinese-market Ethereum                  
NEM             | XEM   | Batteries-included digital assets        
Monero          | XMR   | Private digital cash                     
Ethereum Classic| ETC   | Ethereum clone                           

lepinekong

Red [
    Title:  "Tiny VID Spreadsheet"
    Author: ["Gregg Irwin" "based on Nenad's Native PicoSheet"] 
    Needs:  View
]

sheet-size: 8x8
cell-size:  100x24

L: charset "ABCDEFGHIabcdefghi"

lepinekong

Red [
    Title: "DSL for Modelisation and Simulation of Business Entities"
]

Simulate Bank: Model [
  Companies: [[Company]] ; companies is a collection of company which are potential clients of the bank
  Company: [name Address (optional)]
  Employees: [[Employee]] ; employees is a collection of employee 
  ThirdParties: [[ThirdParty]] ; thirdParties is a collection of thirdParty
  ThirdParty: [

lepinekong

((Search)) - searchString /in 'path /ext 'extension  ->> searchString: form searchString
subgraph Init
  searchString: form searchString 
	searchString: form searchString ->> ext?
	subgraph extension
ext? - Yes ->> extension: form extension
	extension: form extension ->> extension: to-file extension
ext? - No ->> extension: %.md
	end
	extension: %.md ->> root: any [path %./]

lepinekong

Red [
    Title: ".system.override.red"
]

if not value? 'syscd [
    syscd: :cd
    cd: func [
        "Change directory (shell shortcut function)." 
        [catch] 
        'path [file! word! path! unset! string! paren! url!] "Accepts %file, :variables and just words (as dirs)"

lepinekong

Red [
    Title: ".code.analyze"
]

src: {Red [
    Title: ".system.override.red"
]

if not value? 'syscd [
    syscd: :cd

lepinekong

.system.override: function['.func-name][

    Context [
        func-name: form .func-name
        func-src: get :.func-name
        spec: mold/only spec-of :func-src
        template: {if not value? 'sys<%func-name%> [
    sys<%func-name%>: :<%func-name%>
    <%func-name%>: function [<%spec%>][

lepinekong

<?xml version="1.0" encoding="UTF-8"?>
<Scheme>
	<keyword-classes>
		<keyword-class name="red.keywords">
 about abs absolute add alert alias all alter and any any-block? any-function? any-string? any-type? any-word? append arccosine arcsine arctangent array as-pair ask at attempt back binary? bind bitset? block? break brightness? browse build-tag caret-to-offset catch center-face change change-dir char? charset checksum choose clean-path clear clear-fields close comment complement component? compose compress confirm connected? construct context copy cosine datatype? date? debase decimal? decode-cgi decompress dehex delete detab difference dir? dirize disarm dispatch divide do do-events does dump-face dump-obj echo either else email? empty? enbase entab equal? error? even? event? exclude exists? exit exp extract fifth file? find first flash focus for forall foreach forever form forskip found? fourth free func function function? get get-modes get-word? greater-or-equal? greater? halt has hash? head head? help h

lepinekong

Comment {
Redlang: https://red-lang.org
Tutorials: [
    https://dev.to/lepinekong/red-for-hopeless-programmers---part-i-3g0
    https://dev.to/lepinekong/red-for-hopeless-programmers---part-ii-258
] 
Demo-Instruction: {
    - Script below Red[] can be pasted directly in Redlang Console (1 Mb download https://www.red-lang.org/p/download.html) 
    - if you just want to see demo without downloading, type in Red console:

lepinekong

Tutorials: [
    https://dev.to/lepinekong/red-for-hopeless-programmers---part-i-3g0
    https://dev.to/lepinekong/red-for-hopeless-programmers---part-ii-258
] 
Demo-Instruction: {
    can be pasted directly in Redlang Console (1 Mb download https://www.red-lang.org/p/download.html) 
    if you just want to see demo without downloading, type in Red console:

        do read https://gist.githubusercontent.com/lepinekong/08021f2b8ecdd3e0dc09685ef0b0c03f/raw/c7b41adc9a3815f77c4bca815af35b598f920bc1/.system.user.apps.countdown.red
        Countdown 00:25:00 Pomodoro