guaracy

PROGRAM day01;

{$mode objfpc}{$H+}

USES
  StrUtils,
  SysUtils,
  uSuporte;

CONST

guaracy

beads 1 program vslice

var g : a_date

calc main_init
	loom_timer(do_tick, delay:0 sec, interval:1 sec, reps:INFINITY)

calc do_tick
	merge seconds_to_date() ===> g

guaracy

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

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 [ 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

tit

sub-title

Texto bold italico

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

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

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

#!ring -cgi

Load "weblib.ring"

Import system.web

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

guaracy

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