guaracy

Red [
   Title: "Red - functions"
   Author: "Guaracy Monteiro"
   Version: 0.0.1
   Needs: 'View
]

;#include %help.red ; help.red from %environment/console

fn: copy []

guaracy

Red []

#macro [
    integer!
    'times
    block!
] func [start end] [
    change/part start
    reduce [
       'loop start/1 start/3

guaracy

      
Red []
 
page: read %page.txt
 
rule: [
   collect any [
      collect [
         keep to tab
         skip keep to tab

guaracy

#!ring -cgi

Load "weblib.ring"

Import system.web

BootStrapWebPage() {
	div { classname = :container
	
		div { classname = :jumbotron

guaracy

Red [
	Title:   "Red Android bridge demo"
	Author:  "Nenad Rakocevic"
	File: 	 %eval2.red
	;Config:	 [type: 'dll libRed?: no libRedRT?: yes export-ABI: 'cdecl]
	Tabs:	 4
	Needs:	'View
	Rights:  "Copyright (C) 2013-2017 Nenad Rakocevic. All rights reserved."
	License: {
		Distributed under the Boost Software License, Version 1.0.

guaracy

https://drivy.engineering/ruby-lambda-composition/

Red []

GREET: func[val][rejoin ["hello " val]]
UPPER: func[val][uppercase val]

print GREET "world"
print UPPER "world"

guaracy

tit

sub-title

Texto bold italico

(defun org-xor (a b)
   "Exclusive or."
   (if a (not b) b))

guaracy

Red [ needs: 'view]

π: does[pi]
rnd: func[n][random n]
calcula: func[v l][
    attempt [
        eq: yes
        res: form math to block! load v/text 
        c: copy v/text
        append c rejoin [" = " res]

guaracy

Red [needs: 'view]

; frog
; https://opengameart.org/content/frog-player-spritesheets
; background
; https://opengameart.org/content/several-scrolling-backgrounds-and-layerable-runners


frog-sprites: #{
89504E470D0A1A0A0000000D4948445200000100000000800806000000E4B5B7

guaracy

Red [
    Title: "Hangman"
    Date: 25-Aug-2020
    Author: @guaracy
    File: %hangman.red
    Purpouse: {
        Just an animation for the hangman game
        CLI on Linux
    }
]