Rosetta Code

General FizzBuzz: Difference between revisions

Page Discussion

General FizzBuzz (view source)

Revision as of 09:55, 24 April 2024

3,423 bytes added ,  1 month ago
Add SETL
m (→‎{{header|FutureBasic}}: Fix Factor field widths and screenshot)
(Add SETL)
 
(5 intermediate revisions by 5 users not shown)
Line 1,280:
19
Buzz</pre>
 
=={{header|EasyLang}}==
<syntaxhighlight>
max = 20
words$[] = [ "Fizz" "Buzz" "Baxx" ]
keys[] = [ 3 5 7 ]
#
for n = 1 to max
prnt = 1
for j = 1 to len keys[]
if n mod keys[j] = 0
write words$[j]
prnt = 0
.
.
if prnt = 1
write n
.
print ""
.
</syntaxhighlight>
{{out}}
<pre>
1
2
Fizz
4
Buzz
Fizz
Baxx
8
Fizz
Buzz
11
Fizz
13
Baxx
FizzBuzz
16
17
Fizz
19
Buzz
</pre>
 
=={{header|Elixir}}==
Line 1,577 ⟶ 1,621:
_mfile = 1
begin enum
_iNewGame
_
_iClose
end enum
_mEdit = 2
Line 1,585 ⟶ 1,629:
_window = 1
begin enum 1
_maxNumLabel
_maxNumFld
_f1Label
_f1Fld
_wd1Label
_wd1Fld
_f2Label
_f2Fld
_wd2Label
_wd2Fld
_f3Label
_f3Fld
_wd3Label
_wd3Fld
_playBtn
end enum
 
void local fn BuildMenu
menu _mFile,,, @"File"
'~'1
menu _mFile, _iNewGame,, @"FileNew Game"
menu _mFile, _iNewGame_iClose,, @"NewClose", Game@"w"
menu MenuItemSetAction( _mFile, _iClose,, @"CloseperformClose:", @"w")
editmenu _mEdit
MenuItemSetAction( _mFile, _iClose, @"performClose:" )
editmenu _mEdit
end fn
 
void local fn BuildWindow
window _window, @"General FizzBuzz", (0,0,362,188), NSWindowStyleMaskTitled
'~'1
window _window, @"General FizzBuzz", (0,0,362,188), NSWindowStyleMaskTitled
textlabel _maxNumLabel, @"Maximum number:", (18,150,116,16)
 
textfield _maxNumFld,, @"20", (140,147,202,21)
textlabel _maxNumLabel, @"Maximum number:", (18,150,116,16)
textfield ControlSetFormat( _maxNumFld,, @"200123456789", (140YES,147 0,202,21 0 )
ControlSetFormat( _maxNumFld, @"0123456789", YES, 0, 0 )
textlabel _f1Label, @"Factor 1:", (18,121,58,16)
 
textlabel _f1Label textfield _f1Fld,, @"Factor 1:3", (1880,121118,5854,1621)
textfield ControlSetFormat( _f1Fld,, @"30123456789", (80YES,118 0,54,21 0 )
textlabel _wd1Label, @"Word 1:", (138,121,52,16)
ControlSetFormat( _f1Fld, @"0123456789", YES, 0, 0 )
textlabel _wd1Label textfield _wd1Fld,, @"Word 1:Fizz", (138196,121118,52146,1621)
textfield _wd1Fld,, @"Fizz", (196,118,146,21)
textlabel _f2Label, @"Factor 2:", (18,92,58,16)
 
textlabel _f2Label textfield _f2Fld,, @"Factor 2:5", (1880,9289,5854,1621)
textfield ControlSetFormat( _f2Fld,, @"50123456789", (80YES,89 0,54,21 0 )
textlabel _wd2Label, @"Word 2:", (138,92,52,16)
ControlSetFormat( _f2Fld, @"0123456789", YES, 0, 0 )
textlabel _wd2Label textfield _wd2Fld,, @"Word 2:Buzz", (138196,9289,52146,1621)
textfield _wd2Fld,, @"Buzz", (196,89,146,21)
textlabel _f3Label, @"Factor 3:", (18,63,58,16)
 
textlabel _f3Label textfield _f3Fld,, @"Factor 3:7", (1880,6360,5854,1621)
textfield ControlSetFormat( _f3Fld,, @"70123456789", (80YES,60 0,54,21 0 )
textlabel _wd3Label, @"Word 3:", (138,63,52,16)
ControlSetFormat( _f3Fld, @"0123456789", YES, 0, 0 )
textlabel _wd3Label textfield _wd3Fld,, @"Word 3:Baxx", (138196,6360,52146,1621)
textfield _wd3Fld,, @"Baxx", (196,60,146,21)
button _playBtn,,, @"Play FizzBuzz", (122,13,118,32)
 
button _playBtn,,, @"Play FizzBuzz", (122,13,118,32)
WindowMakeFirstResponder( _window, _maxNumFld )
 
WindowMakeFirstResponder( _window, _maxNumFld )
end fn
 
void local fn PlayFizzBuzz
long maxNum = intval(textfield(_maxNumFld))
'~'1
long maxNum = intval(textfield(_maxNumFld))
long f1 = intval(textfield(_f1Fld))
 
long f1f2 = intval(textfield(_f1Fld_f2Fld))
long f2f3 = intval(textfield(_f2Fld_f3Fld))
long f3 = intval(textfield(_f3Fld))
CFStringRef f1Word = textfield(_wd1Fld)
 
CFStringRef f1Wordf2Word = textfield(_wd1Fld_wd2Fld)
CFStringRef f2Wordf3Word = textfield(_wd2Fld_wd3Fld)
CFStringRef f3Wordstring = textfield(_wd3Fld)NULL
CFStringRef string = NULL
NSLogClear
 
NSLogClear
long i
 
for i = 1 to maxNum
long i
string = @""
for i = 1 to maxNum
if ( i mod f1 == 0 ) then string = f1Word
string = @""
if ( i mod f1f2 == 0 ) then string = f1Wordfn StringByAppendingString( string, f2Word )
if ( i mod f2f3 == 0 ) then string = fn StringByAppendingString( string, f2Wordf3Word )
if ( i mod f3if ( len(string) == 0 ) then string = fn StringByAppendingStringStringWithFormat( string@"%ld", f3Wordi )
NSLog(@"%@",string)
if ( len(string) == 0 ) then string = fn StringWithFormat( @"%ld", i )
next
NSLog(@"%@",string)
next
end fn
 
 
void local fn DoDialog( ev as long, tag as long )
select ( ev )
'~'1
case _btnClick
select ( ev )
select ( tag )
case _btnClick
case _playBtn : fn PlayFizzBuzz
select ( tag )
end select
case _playBtn : fn PlayFizzBuzz
end select
end select
end fn
 
Line 3,273 ⟶ 3,313:
Four Two eight...
</pre>
 
=={{header|Quackery}}==
 
<syntaxhighlight lang="Quackery"> [ sortwith
[ dip [ 1 peek ]
1 peek > ]
$ "" swap rot
times
[ i^ 1+
over $ "" unrot
witheach
[ dip dup do
dip swap mod
iff drop
else
[ rot swap
join swap ] ]
over $ "" =
iff [ number$ join ]
else drop
rot swap join
space join swap ]
drop
-1 split drop ] is generalfizzbuzz ( n [ --> $ )
 
105
' [ [ $ "fizz" 3 ]
[ $ "baxx" 7 ]
[ $ "buzz" 5 ] ] generalfizzbuzz
nest$ 60 wrap$ cr</syntaxhighlight>
{{out}}
 
<pre>1 2 fizz 4 buzz fizz baxx 8 fizz buzz 11 fizz 13 baxx
fizzbuzz 16 17 fizz 19 buzz fizzbaxx 22 23 fizz buzz 26 fizz
baxx 29 fizzbuzz 31 32 fizz 34 buzzbaxx fizz 37 38 fizz buzz
41 fizzbaxx 43 44 fizzbuzz 46 47 fizz baxx buzz fizz 52 53
fizz buzz baxx fizz 58 59 fizzbuzz 61 62 fizzbaxx 64 buzz
fizz 67 68 fizz buzzbaxx 71 fizz 73 74 fizzbuzz 76 baxx fizz
79 buzz fizz 82 83 fizzbaxx buzz 86 fizz 88 89 fizzbuzz baxx
92 fizz 94 buzz fizz 97 baxx fizz buzz 101 fizz 103 104
fizzbuzzbaxx</pre>
 
=={{header|R}}==
===... solution===
Line 3,506 ⟶ 3,588:
FizzBaxx
(halted)</pre>
 
=={{header|Refal}}==
<syntaxhighlight lang="refal">$ENTRY Go {
, <Numb <Card>>: s.Max
, <ReadFactors>: e.Factors
, <Iota 1 s.Max>: e.Nums
= <Each Fizz (e.Factors) e.Nums>;
};
Fizz {
s.I e.Facs, <Each Fac (s.I) e.Facs>: {
= <Prout <Symb s.I>>;
e.X = <Prout e.X>;
};
}
 
Fac {
(s.Fac e.FacWord) s.I, <Mod s.I s.Fac>: {
0 = e.FacWord;
s.X = ;
};
};
 
ReadFactors {
, <Card>: {
0 = ; = ;
e.Line = (<Line e.Line>) <ReadFactors>;
};
};
 
Line {
e.X, <Split ' ' e.X>: (e.Num) e.Word =
<Numb e.Num> <Trim ' ' e.Word>;
};
Split {
s.C e.X s.C e.Y = (e.X) e.Y;
s.C e.X = (e.X);
};
 
Trim {
s.C = ;
s.C s.C e.X = <Trim s.C e.X>;
s.C e.X s.C = <Trim s.C e.X>;
s.C s.I e.X = s.I <Trim s.C e.X>;
};
 
Iota {
s.End s.End = s.End;
s.Start s.End = s.Start <Iota <+ 1 s.Start> s.End>;
};
 
Each {
s.F (e.Arg) = ;
s.F (e.Arg) t.I e.X = <Mu s.F t.I e.Arg> <Each s.F (e.Arg) e.X>;
};</syntaxhighlight>
{{out}}
<tt><i>20<br>
3 Fizz<br>
5 Buzz<br>
7 Baxx<br></i>
<br>
1<br>
2<br>
Fizz<br>
4<br>
Buzz<br>
Fizz<br>
Baxx<br>
8<br>
Fizz<br>
Buzz<br>
11<br>
Fizz<br>
13<br>
Baxx<br>
FizzBuzz<br>
16<br>
17<br>
Fizz<br>
19<br>
Buzz</tt>
 
=={{header|REXX}}==
Line 3,880 ⟶ 4,044:
fizzBuzz(factors).take(max).foreach(println)</syntaxhighlight>
 
=={{header|SETL}}==
<syntaxhighlight lang="setl">program general_fizzbuzz;
fizzbuzz(20, {[3,"Fizz"], [5,"Buzz"], [7,"Baxx"]});
 
proc fizzbuzz(maxno, factors);
loop for i in [1..maxno] do
print(+/[word : word = factors(f) | i mod f=0] ? str i);
end loop;
end proc;
end program;</syntaxhighlight>
{{out}}
<pre>1
2
Fizz
4
Buzz
Fizz
Baxx
8
Fizz
Buzz
11
Fizz
13
Baxx
FizzBuzz
16
17
Fizz
19
Buzz</pre>
=={{header|Sidef}}==
<syntaxhighlight lang="ruby">class FizzBuzz(schema=Hash(<3 Fizz 5 Buzz>...)) {
Line 4,424 ⟶ 4,619:
=={{header|Wren}}==
{{libheader|Wren-sort}}
<syntaxhighlight lang="ecmascriptwren">import "io" for Stdin, Stdout
import "./sort" for Sort
 
var n
Not a robot
2,096

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/347457...363920"