Basics of Factor

Conversion of old BASIC programs to Factor in order to learn the basics of this language.

Tags:

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

All versions of 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

All versions of Name

Basics off: Metaproject about the "Basics of…" projects.
Basics of 8th: Conversion of old BASIC programs to 8th in order to learn the basics of this language.
Basics of Ada: Conversion of old BASIC programs to Ada in order to learn the basics of this language.
Basics of Arturo: Conversion of old BASIC programs to Arturo in order to learn the basics of this language.
Basics of C#: Conversion of old BASIC programs to C# in order to learn the basics of this language.
Basics of C3: Conversion of old BASIC programs to C3 in order to learn the basics of this language.
Basics of Chapel: Conversion of old BASIC programs to Chapel in order to learn the basics of this language.
Basics of Clojure: Conversion of old BASIC programs to Clojure in order to learn the basics of this language.
Basics of Crystal: Conversion of old BASIC programs to Crystal in order to learn the basics of this language.
Basics of D: Conversion of old BASIC programs to D in order to learn the basics of this language.
Basics of Elixir: Conversion of old BASIC programs to Elixir in order to learn the basics of this language.
Basics of F#: Conversion of old BASIC programs to F# in order to learn the basics of this language.
Basics of FreeBASIC: Conversion of old BASIC programs to FreeBASIC in order to learn the basics of this language.
Basics of Gleam: Conversion of old BASIC programs to Gleam in order to learn the basics of this language.
Basics of Go: Conversion of old BASIC programs to Go in order to learn the basics of this language.
Basics of Hare: Conversion of old BASIC programs to Hare in order to learn the basics of this language.
Basics of Haxe: Conversion of old BASIC programs to Haxe in order to learn the basics of this language.
Basics of Icon: Conversion of old BASIC programs to Icon in order to learn the basics of this language.
Basics of Io: Conversion of old BASIC programs to Io in order to learn the basics of this language.
Basics of Janet: Conversion of old BASIC programs to Janet in order to learn the basics of this language.
Basics of Julia: Conversion of old BASIC programs to Julia in order to learn the basics of this language.
Basics of Kotlin: Conversion of old BASIC programs to Kotlin in order to learn the basics of this language.
Basics of Lobster: Conversion of old BASIC programs to Lobster in order to learn the basics of this language.
Basics of Lua: Conversion of old BASIC programs to Lua in order to learn the basics of this language.
Basics of Nature: Conversion of old BASIC programs to Nature in order to learn the basics of this language.
Basics of Neat: Conversion of old BASIC programs to Neat in order to learn the basics of this language.
Basics of Neko: Conversion of old BASIC programs to Neko in order to learn the basics of this language.
Basics of Nelua: Conversion of old BASIC programs to Nelua in order to learn the basics of this language.
Basics of Nim: Conversion of old BASIC programs to Nim in order to learn the basics of this language.
Basics of Nit: Conversion of old BASIC programs to Nit in order to learn the basics of this language.
Basics of Oberon-07: Conversion of old BASIC programs to Oberon-07 in order to learn the basics of this language.
Basics of OCaml: Conversion of old BASIC programs to OCaml in order to learn the basics of this language.
Basics of Odin: Conversion of old BASIC programs to Odin in order to learn the basics of this language.
Basics of Pike: Conversion of old BASIC programs to Pike in order to learn the basics of this language.
Basics of Pony: Conversion of old BASIC programs to Pony in order to learn the basics of this language.
Basics of Python: Conversion of old BASIC programs to Python in order to learn the basics of this language.
Basics of Racket: Conversion of old BASIC programs to Racket in order to learn the basics of this language.
Basics of Raku: Conversion of old BASIC programs to Raku in order to learn the basics of this language.
Basics of Retro: Conversion of old BASIC programs to Retro in order to learn the basics of this language.
Basics of Rexx: Conversion of old BASIC programs to Rexx in order to learn the basics of this language.
Basics of Ring: Conversion of old BASIC programs to Ring in order to learn the basics of this language.
Basics of Rust: Conversion of old BASIC programs to Rust in order to learn the basics of this language.
Basics of Scala: Conversion of old BASIC programs to Scala in order to learn the basics of this language.
Basics of Scheme: Conversion of old BASIC programs to Scheme in order to learn the basics of this language.
Basics of Styx: Conversion of old BASIC programs to Styx in order to learn the basics of this language.
Basics of Swift: Conversion of old BASIC programs to Swift in order to learn the basics of this language.
Basics of V: Conversion of old BASIC programs to V in order to learn the basics of this language.
Basics of Vala: Conversion of old BASIC programs to Vala in order to learn the basics of this language.
Basics of Zig: Conversion of old BASIC programs to Zig in order to learn the basics of this language.

External related links

Factor

Basics of Factor

Description of the page content

Diamond

Name

Related pages

External related links