Basics of Factor

Conversión de antiguos programas de BASIC a Factor para aprender los rudimentos de este lenguaje.

Etiquetas:

Diamond

! Diamond

! Original version in BASIC:
!     Example included in Vintage BASIC 1.0.3.
!     http://www.vintage-basic.net

! This version in Factor:
!     Copyright (c) 2024, Marcos Cruz (programandala.net)
!     SPDX-License-Identifier: Fair

! Written on 2024-11-30, 2024-12-03.

! Last modified 20241203T0106+0100.

USING: io math ranges sequences ;

IN: diamond

CONSTANT: lines 17

: print-star ( -- )
    "*" write ;

: print-space ( -- )
    " " write ;

: end-line ( -- )
    "" print ;

:: print-top ( height -- )
    lines 1 + 2 / height - 1 + [ print-space ] times
    height 2 * 1 -             [ print-star  ] times end-line ;
    ! Print the diamond top part, with the given _height_.

:: print-bottom ( height -- )
    height 1 +                     [ print-space ] times
    lines 1 + 2 / height - 2 * 1 - [ print-star  ] times end-line ;
    ! Print the diamond bottom part, with the given _height_.

: run ( -- )
    lines 2 / 1 + [1..b] [ print-top    ] each
    lines 2 /     [1..b] [ print-bottom ] each ;

MAIN: run

Todas las versiones de Diamond

Name

! Name

! Original version in BASIC:
!     Example included in Vintage BASIC 1.0.3.
!     http://www.vintage-basic.net

! This version in Factor:
!     Copyright (c) 2024, Marcos Cruz (programandala.net)
!     SPDX-License-Identifier: Fair

! Written in 2024-11-30/12-02.

! Last modified 20241203T0108+0100.

USING: io kernel math math.parser sequences ;

IN: name

! XXX FIXME Prompts are printed only after both inputs! But
! it works fine on the graphical interface. Bug of Factor? 

: repetitions ( -- number )
    "" [ string>number dup ] [ drop "Enter a number: " write readln ] until ;
    ! Ask the user to enter a number. If the entry cannot be converted to a number, ask again.

: name ( -- string )
    "" [ dup "" = ] [ drop "What is your name? " write readln ] while ;
    ! Ask the user to enter a name. If the entry is empty, ask again.

: salute ( -- string )
    "Hello, " name append "!" append ;

: run ( -- )
    salute repetitions swap '[ _ print ] times ;

MAIN: run

Todas las versiones de Name

Páginas relacionadas

Basics off: Metaproyecto sobre los proyectos «Basics of…».
Basics of 8th: Conversión de antiguos programas de BASIC a 8th para aprender los rudimentos de este lenguaje.
Basics of Ada: Conversión de antiguos programas de BASIC a Ada para aprender los rudimentos de este lenguaje.
Basics of Arturo: Conversión de antiguos programas de BASIC a Arturo para aprender los rudimentos de este lenguaje.
Basics of C#: Conversión de antiguos programas de BASIC a C# para aprender los rudimentos de este lenguaje.
Basics of C3: Conversión de antiguos programas de BASIC a C3 para aprender los rudimentos de este lenguaje.
Basics of Chapel: Conversión de antiguos programas de BASIC a Chapel para aprender los rudimentos de este lenguaje.
Basics of Clojure: Conversión de antiguos programas de BASIC a Clojure para aprender los rudimentos de este lenguaje.
Basics of Crystal: Conversión de antiguos programas de BASIC a Crystal para aprender los rudimentos de este lenguaje.
Basics of D: Conversión de antiguos programas de BASIC a D para aprender los rudimentos de este lenguaje.
Basics of Elixir: Conversión de antiguos programas de BASIC a Elixir para aprender los rudimentos de este lenguaje.
Basics of F#: Conversión de antiguos programas de BASIC a F# para aprender los rudimentos de este lenguaje.
Basics of FreeBASIC: Conversión de antiguos programas de BASIC a FreeBASIC para aprender los rudimentos de este lenguaje.
Basics of Gleam: Conversión de antiguos programas de BASIC a Gleam para aprender los rudimentos de este lenguaje.
Basics of Go: Conversión de antiguos programas de BASIC a Go para aprender los rudimentos de este lenguaje.
Basics of Hare: Conversión de antiguos programas de BASIC a Hare para aprender los rudimentos de este lenguaje.
Basics of Haxe: Conversión de antiguos programas de BASIC a Haxe para aprender los rudimentos de este lenguaje.
Basics of Icon: Conversión de antiguos programas de BASIC a Icon para aprender los rudimentos de este lenguaje.
Basics of Io: Conversión de antiguos programas de BASIC a Io para aprender los rudimentos de este lenguaje.
Basics of Janet: Conversión de antiguos programas de BASIC a Janet para aprender los rudimentos de este lenguaje.
Basics of Julia: Conversión de antiguos programas de BASIC a Julia para aprender los rudimentos de este lenguaje.
Basics of Kotlin: Conversión de antiguos programas de BASIC a Kotlin para aprender los rudimentos de este lenguaje.
Basics of Lobster: Conversión de antiguos programas de BASIC a Lobster para aprender los rudimentos de este lenguaje.
Basics of Lua: Conversión de antiguos programas de BASIC a Lua para aprender los rudimentos de este lenguaje.
Basics of Nature: Conversión de antiguos programas de BASIC a Nature para aprender los rudimentos de este lenguaje.
Basics of Neat: Conversión de antiguos programas de BASIC a Neat para aprender los rudimentos de este lenguaje.
Basics of Neko: Conversión de antiguos programas de BASIC a Neko para aprender los rudimentos de este lenguaje.
Basics of Nelua: Conversión de antiguos programas de BASIC a Nelua para aprender los rudimentos de este lenguaje.
Basics of Nim: Conversión de antiguos programas de BASIC a Nim para aprender los rudimentos de este lenguaje.
Basics of Nit: Conversión de antiguos programas de BASIC a Nit para aprender los rudimentos de este lenguaje.
Basics of Oberon-07: Conversión de antiguos programas de BASIC a Oberon-07 para aprender los rudimentos de este lenguaje.
Basics of OCaml: Conversión de antiguos programas de BASIC a OCaml para aprender los rudimentos de este lenguaje.
Basics of Odin: Conversión de antiguos programas de BASIC a Odin para aprender los rudimentos de este lenguaje.
Basics of Pike: Conversión de antiguos programas de BASIC a Pike para aprender los rudimentos de este lenguaje.
Basics of Pony: Conversión de antiguos programas de BASIC a Pony para aprender los rudimentos de este lenguaje.
Basics of Python: Conversión de antiguos programas de BASIC a Python para aprender los rudimentos de este lenguaje.
Basics of Racket: Conversión de antiguos programas de BASIC a Racket para aprender los rudimentos de este lenguaje.
Basics of Raku: Conversión de antiguos programas de BASIC a Raku para aprender los rudimentos de este lenguaje.
Basics of Retro: Conversión de antiguos programas de BASIC a Retro para aprender los rudimentos de este lenguaje.
Basics of Rexx: Conversión de antiguos programas de BASIC a Rexx para aprender los rudimentos de este lenguaje.
Basics of Ring: Conversión de antiguos programas de BASIC a Ring para aprender los rudimentos de este lenguaje.
Basics of Rust: Conversión de antiguos programas de BASIC a Rust para aprender los rudimentos de este lenguaje.
Basics of Scala: Conversión de antiguos programas de BASIC a Scala para aprender los rudimentos de este lenguaje.
Basics of Scheme: Conversión de antiguos programas de BASIC a Scheme para aprender los rudimentos de este lenguaje.
Basics of Styx: Conversión de antiguos programas de BASIC a Styx para aprender los rudimentos de este lenguaje.
Basics of Swift: Conversión de antiguos programas de BASIC a Swift para aprender los rudimentos de este lenguaje.
Basics of V: Conversión de antiguos programas de BASIC a V para aprender los rudimentos de este lenguaje.
Basics of Vala: Conversión de antiguos programas de BASIC a Vala para aprender los rudimentos de este lenguaje.
Basics of Zig: Conversión de antiguos programas de BASIC a Zig para aprender los rudimentos de este lenguaje.

Enlaces externos relacionados

Factor

Basics of Factor

Descripción del contenido de la página

Diamond

Name

Páginas relacionadas

Enlaces externos relacionados