Merry Christmas
& related Northern Hemisphere Winter Solstice festivities May your days be ever longer Some Christmas challenges on the
FB Minimalist Computing
Ken Boak Admin
Over
on the Retrocomputing forum - a Vintage Computing programming challenge
to create a Christmas star using the asterix character.
Too tempting . Had to do it . Here's the CoSy code . First , as worked thru line by line in https://cosy.com/4thCoSy/Code/CoSy/WorkLog.csy ( CoSy workspace file . Requires CoSy . )
(
* * ** ** *** *** **** **** ***** ***** ********************* ******************* ***************** *************** ************* *********** ************* *************** ***************** ******************* ********************* ***** ***** **** **** *** *** ** ** * * ) And
for an encore :
*
*
*
*
*
*
*
*
*
*
*
* ** ** ** ** ** ** ** ** ** ** ** ** *** *** *** *** *** *** *** *** *** *** *** *** **** **** **** **** **** **** **** **** **** **** **** **** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ****************************************************************************************************************************** ******************* ******************* ******************* ******************* ******************* ******************* ***************** ***************** ***************** ***************** ***************** ***************** *************** *************** *************** *************** *************** *************** ************* ************* ************* ************* ************* ************* *********** *********** *********** *********** *********** *********** ************* ************* ************* ************* ************* ************* *************** *************** *************** *************** *************** *************** ***************** ***************** ***************** ***************** ***************** ***************** ******************* ******************* ******************* ******************* ******************* ******************* ****************************************************************************************************************************** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** **** **** **** **** **** **** **** **** **** **** **** **** *** *** *** *** *** *** *** *** *** *** *** *** ** ** ** ** ** ** ** ** ** ** ** ** * * * * * * * * * * * * * * * * * * * * * * * * ** ** ** ** ** ** ** ** ** ** ** ** *** *** *** *** *** *** *** *** *** *** *** *** **** **** **** **** **** **** **** **** **** **** **** **** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ****************************************************************************************************************************** ******************* ******************* ******************* ******************* ******************* ******************* ***************** ***************** ***************** ***************** ***************** ***************** *************** *************** *************** *************** *************** *************** ************* ************* ************* ************* ************* ************* *********** *********** *********** *********** *********** *********** ************* ************* ************* ************* ************* ************* *************** *************** *************** *************** *************** *************** ***************** ***************** ***************** ***************** ***************** ***************** ******************* ******************* ******************* ******************* ******************* ******************* ****************************************************************************************************************************** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** **** **** **** **** **** **** **** **** **** **** **** **** *** *** *** *** *** *** *** *** *** *** *** *** ** ** ** ** ** ** ** ** ** ** ** ** * * * * * * * * * * * * * * * * * * * * * * * * ** ** ** ** ** ** ** ** ** ** ** ** *** *** *** *** *** *** *** *** *** *** *** *** **** **** **** **** **** **** **** **** **** **** **** **** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ****************************************************************************************************************************** ******************* ******************* ******************* ******************* ******************* ******************* ***************** ***************** ***************** ***************** ***************** ***************** *************** *************** *************** *************** *************** *************** ************* ************* ************* ************* ************* ************* *********** *********** *********** *********** *********** *********** ************* ************* ************* ************* ************* ************* *************** *************** *************** *************** *************** *************** ***************** ***************** ***************** ***************** ***************** ***************** ******************* ******************* ******************* ******************* ******************* ******************* ****************************************************************************************************************************** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** **** **** **** **** **** **** **** **** **** **** **** **** *** *** *** *** *** *** *** *** *** *** *** *** ** ** ** ** ** ** ** ** ** ** ** ** * * * * * * * * * * * * * * * * * * * * * * * * ** ** ** ** ** ** ** ** ** ** ** ** *** *** *** *** *** *** *** *** *** *** *** *** **** **** **** **** **** **** **** **** **** **** **** **** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ****************************************************************************************************************************** ******************* ******************* ******************* ******************* ******************* ******************* ***************** ***************** ***************** ***************** ***************** ***************** *************** *************** *************** *************** *************** *************** ************* ************* ************* ************* ************* ************* *********** *********** *********** *********** *********** *********** ************* ************* ************* ************* ************* ************* *************** *************** *************** *************** *************** *************** ***************** ***************** ***************** ***************** ***************** ***************** ******************* ******************* ******************* ******************* ******************* ******************* ****************************************************************************************************************************** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** **** **** **** **** **** **** **** **** **** **** **** **** *** *** *** *** *** *** *** *** *** *** *** *** ** ** ** ** ** ** ** ** ** ** ** ** * * * * * * * * * * * * I also made a 1 min vid executing each line : https://www.cosy.com/CoSy/y22/8_point_starFB_Min_Comp.mp4 It took me a LOT more time than it should have to convert sequence of interactively executed lines above into a parameterized verb in CoSy , But here it is : : 8star ( chr size -- star ) 2p>
iota 1+i ' take 'R "bl ' cL 'L R@ ' fill 'L
If you count it in terms of words as thoughts , it's 60 something ... "bl ' cL 'L $ ' reverse 'm ' cL 'd >a> flip ' ,/ 'm o .. .. L@ $ # 2 _take take ' cL 'd $ ' reverse 'm ' cL 'd a> "bl R@ take enc ' braket 'L >a> $ cL a> reverse cL 2P> ; Here is the result of ` *!@#$ 6 _iota
1+i ' 8star 'd >t0 *
* ! !
@ @
#
#
$
$
*
* ***** !! !! @@ @@ ## ## $$ $$ ** ** *** !!!!!!!!! @@@ @@@ ### ### $$$ $$$ *** *** ***** !!!!!!! @@@@@@@@@@@@@ #### #### $$$$ $$$$ **** **** * * !!!!! @@@@@@@@@@@ ################# $$$$$ $$$$$ ***** ***** !!!!!!! @@@@@@@@@ ############### $$$$$$$$$$$$$$$$$$$$$ ****** ****** !!!!!!!!! @@@@@@@ ############# $$$$$$$$$$$$$$$$$$$ ************************* !! !! @@@@@@@@@ ########### $$$$$$$$$$$$$$$$$ *********************** ! ! @@@@@@@@@@@ ######### $$$$$$$$$$$$$$$ ********************* @@@@@@@@@@@@@ ########### $$$$$$$$$$$$$ ******************* @@@ @@@ ############# $$$$$$$$$$$ ***************** @@ @@ ############### $$$$$$$$$$$$$ *************** @ @ ################# $$$$$$$$$$$$$$$ ************* #### #### $$$$$$$$$$$$$$$$$ *************** ### ### $$$$$$$$$$$$$$$$$$$ ***************** ## ## $$$$$$$$$$$$$$$$$$$$$ ******************* # # $$$$$ $$$$$ ********************* $$$$ $$$$ *********************** $$$ $$$ ************************* $$ $$ ****** ****** $ $ ***** ***** **** **** *** *** ** ** * * ` *!@#$ 5 _i 8star
( * * *! !* *!@ @!* *!@# #@!* *!@#$ $#@!* ******!@#$*!@#$****** !!!!!@#$*!@#$*!!!!! @@@@#$*!@#$*!@@@@ ###$*!@#$*!@### $$*!@#$*!@#$$ *!@#$*!@#$* $!@#$*!@#$*!$ ##@#$*!@#$*!@## @@@#$*!@#$*!@#@@@ !!!!$*!@#$*!@#$!!!! ******!@#$*!@#$****** *!@#$ $#@!* *!@# #@!* *!@ @!* *! !* * * ) I just made a script file , https://cosy.com/4thCoSy/Code/CoSy/Playground.f for ` 8star and any future frivolities . CoSy is the simplest most productive programming environment for ` ordinary people , built on the most ` powerful ideas from APL & Forth
I happened to
watch Climate Brawl Debate:
Tony Heller vs Gerald Kutneyh . I think it's clear Heller presented
more substance . He does need to start naming names and giving
the purported reasons by NASA & NOAA for the altering of historic
temperature data .
There are 2 projects I think would be quite worthwhile , perhaps as student projects , likely worthy of presentation at , say , a Heartland conference . Both are at a basic classical macroscopic quantitative physics level .
" What we will be leaving our grandchildren
is not a planet damaged by industrial progress, but a record of
unfathomable silliness as well as a landscape degraded by rusting wind
farms and decaying solar panel arrays. "
Richard Lindzen
The hundred ton concrete &
rebar plugs embedded in lands across the
land will last those thousands of years .
Check the Daily
Blog for more , and links on these and other topics .
Coming : premium daily Blog updates : winnowed links to news , commentary & tek If you are running CoSy, the Job is downloadable at https://cosy.com/y22/blog.csy giving you all the tools for searching , extracting , etc that the CoSy vocabulary provides .
|