CDE
This commit is contained in:
Ingy döt Net
parent
518da4a923
commit
764da6cbbb
6144 changed files with 83610 additions and 11 deletions
18
Task/FizzBuzz/C++/fizzbuzz-1.cpp
Normal file
18
Task/FizzBuzz/C++/fizzbuzz-1.cpp
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
#include <iostream>
|
||||
|
||||
using namespace std;
|
||||
int main () {
|
||||
|
||||
int i;
|
||||
for (i = 0; i <= 100; i++) {
|
||||
if ((i % 15) == 0)
|
||||
cout << "FizzBuzz" << endl;
|
||||
else if ((i % 3) == 0)
|
||||
cout << "Fizz" << endl;
|
||||
else if ((i % 5) == 0)
|
||||
cout << "Buzz" << endl;
|
||||
else
|
||||
cout << i << endl;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
19
Task/FizzBuzz/C++/fizzbuzz-2.cpp
Normal file
19
Task/FizzBuzz/C++/fizzbuzz-2.cpp
Normal file
|
|
@ -0,0 +1,19 @@
|
|||
#include <iostream>
|
||||
using namespace std;
|
||||
|
||||
int main()
|
||||
{
|
||||
for (int i = 0; i <= 100; ++i)
|
||||
{
|
||||
bool fizz = (i % 3) == 0;
|
||||
bool buzz = (i % 5) == 0;
|
||||
if (fizz)
|
||||
cout << "Fizz";
|
||||
if (buzz)
|
||||
cout << "Buzz";
|
||||
if (!fizz && !buzz)
|
||||
cout << i;
|
||||
cout << endl;
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
48
Task/FizzBuzz/C++/fizzbuzz-3.cpp
Normal file
48
Task/FizzBuzz/C++/fizzbuzz-3.cpp
Normal file
|
|
@ -0,0 +1,48 @@
|
|||
#include <iostream>
|
||||
|
||||
template <int n, int m3, int m5>
|
||||
struct fizzbuzz : fizzbuzz<n-1, (n-1)%3, (n-1)%5>
|
||||
{
|
||||
fizzbuzz()
|
||||
{ std::cout << n << std::endl; }
|
||||
};
|
||||
|
||||
template <int n>
|
||||
struct fizzbuzz<n, 0, 0> : fizzbuzz<n-1, (n-1)%3, (n-1)%5>
|
||||
{
|
||||
fizzbuzz()
|
||||
{ std::cout << "FizzBuzz" << std::endl; }
|
||||
};
|
||||
|
||||
template <int n, int p>
|
||||
struct fizzbuzz<n, 0, p> : fizzbuzz<n-1, (n-1)%3, (n-1)%5>
|
||||
{
|
||||
fizzbuzz()
|
||||
{ std::cout << "Fizz" << std::endl; }
|
||||
};
|
||||
|
||||
template <int n, int p>
|
||||
struct fizzbuzz<n, p, 0> : fizzbuzz<n-1, (n-1)%3, (n-1)%5>
|
||||
{
|
||||
fizzbuzz()
|
||||
{ std::cout << "Buzz" << std::endl; }
|
||||
};
|
||||
|
||||
template <>
|
||||
struct fizzbuzz<0,0,0>
|
||||
{
|
||||
fizzbuzz()
|
||||
{ std::cout << 0 << std::endl; }
|
||||
};
|
||||
|
||||
template <int n>
|
||||
struct fb_run
|
||||
{
|
||||
fizzbuzz<n, n%3, n%5> fb;
|
||||
};
|
||||
|
||||
int main()
|
||||
{
|
||||
fb_run<100> fb;
|
||||
return 0;
|
||||
}
|
||||
164
Task/FizzBuzz/C++/fizzbuzz-4.cpp
Normal file
164
Task/FizzBuzz/C++/fizzbuzz-4.cpp
Normal file
|
|
@ -0,0 +1,164 @@
|
|||
#include <iostream>
|
||||
#include <string>
|
||||
#include <cstdlib>
|
||||
#include <boost/mpl/string.hpp>
|
||||
#include <boost/mpl/fold.hpp>
|
||||
#include <boost/mpl/size_t.hpp>
|
||||
|
||||
using namespace std;
|
||||
using namespace boost;
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////
|
||||
// exponentiation calculations
|
||||
template <int accum, int base, int exp> struct POWER_CORE : POWER_CORE<accum * base, base, exp - 1>{};
|
||||
|
||||
template <int accum, int base>
|
||||
struct POWER_CORE<accum, base, 0>
|
||||
{
|
||||
enum : int { val = accum };
|
||||
};
|
||||
|
||||
template <int base, int exp> struct POWER : POWER_CORE<1, base, exp>{};
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////
|
||||
// # of digit calculations
|
||||
template <int depth, unsigned int i> struct NUM_DIGITS_CORE : NUM_DIGITS_CORE<depth + 1, i / 10>{};
|
||||
|
||||
template <int depth>
|
||||
struct NUM_DIGITS_CORE<depth, 0>
|
||||
{
|
||||
enum : int { val = depth};
|
||||
};
|
||||
|
||||
template <int i> struct NUM_DIGITS : NUM_DIGITS_CORE<0, i>{};
|
||||
|
||||
template <>
|
||||
struct NUM_DIGITS<0>
|
||||
{
|
||||
enum : int { val = 1 };
|
||||
};
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////
|
||||
// Convert digit to character (1 -> '1')
|
||||
template <int i>
|
||||
struct DIGIT_TO_CHAR
|
||||
{
|
||||
enum : char{ val = i + 48 };
|
||||
};
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////
|
||||
// Find the digit at a given offset into a number of the form 0000000017
|
||||
template <unsigned int i, int place> // place -> [0 .. 10]
|
||||
struct DIGIT_AT
|
||||
{
|
||||
enum : char{ val = (i / POWER<10, place>::val) % 10 };
|
||||
};
|
||||
|
||||
struct NULL_CHAR
|
||||
{
|
||||
enum : char{ val = '\0' };
|
||||
};
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////
|
||||
// Convert the digit at a given offset into a number of the form '0000000017' to a character
|
||||
template <unsigned int i, int place> // place -> [0 .. 9]
|
||||
struct ALT_CHAR : DIGIT_TO_CHAR< DIGIT_AT<i, place>::val >{};
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////
|
||||
// Convert the digit at a given offset into a number of the form '17' to a character
|
||||
|
||||
// Template description, with specialization to generate null characters for out of range offsets
|
||||
template <unsigned int i, int offset, int numDigits, bool inRange>
|
||||
struct OFFSET_CHAR_CORE_CHECKED{};
|
||||
template <unsigned int i, int offset, int numDigits>
|
||||
struct OFFSET_CHAR_CORE_CHECKED<i, offset, numDigits, false> : NULL_CHAR{};
|
||||
template <unsigned int i, int offset, int numDigits>
|
||||
struct OFFSET_CHAR_CORE_CHECKED<i, offset, numDigits, true> : ALT_CHAR<i, (numDigits - offset) - 1 >{};
|
||||
|
||||
// Perform the range check and pass it on
|
||||
template <unsigned int i, int offset, int numDigits>
|
||||
struct OFFSET_CHAR_CORE : OFFSET_CHAR_CORE_CHECKED<i, offset, numDigits, offset < numDigits>{};
|
||||
|
||||
// Calc the number of digits and pass it on
|
||||
template <unsigned int i, int offset>
|
||||
struct OFFSET_CHAR : OFFSET_CHAR_CORE<i, offset, NUM_DIGITS<i>::val>{};
|
||||
|
||||
///////////////////////////////////////////////////////////////////////////////
|
||||
// Integer to char* template. Works on unsigned ints.
|
||||
template <unsigned int i>
|
||||
struct IntToStr
|
||||
{
|
||||
const static char str[];
|
||||
typedef typename mpl::string<
|
||||
OFFSET_CHAR<i, 0>::val,
|
||||
OFFSET_CHAR<i, 1>::val,
|
||||
OFFSET_CHAR<i, 2>::val,
|
||||
OFFSET_CHAR<i, 3>::val,
|
||||
OFFSET_CHAR<i, 4>::val,
|
||||
OFFSET_CHAR<i, 5>::val,
|
||||
/*OFFSET_CHAR<i, 6>::val,
|
||||
OFFSET_CHAR<i, 7>::val,
|
||||
OFFSET_CHAR<i, 8>::val,
|
||||
OFFSET_CHAR<i, 9>::val,*/
|
||||
NULL_CHAR::val>::type type;
|
||||
};
|
||||
|
||||
template <unsigned int i>
|
||||
const char IntToStr<i>::str[] =
|
||||
{
|
||||
OFFSET_CHAR<i, 0>::val,
|
||||
OFFSET_CHAR<i, 1>::val,
|
||||
OFFSET_CHAR<i, 2>::val,
|
||||
OFFSET_CHAR<i, 3>::val,
|
||||
OFFSET_CHAR<i, 4>::val,
|
||||
OFFSET_CHAR<i, 5>::val,
|
||||
OFFSET_CHAR<i, 6>::val,
|
||||
OFFSET_CHAR<i, 7>::val,
|
||||
OFFSET_CHAR<i, 8>::val,
|
||||
OFFSET_CHAR<i, 9>::val,
|
||||
NULL_CHAR::val
|
||||
};
|
||||
|
||||
template <bool condition, class Then, class Else>
|
||||
struct IF
|
||||
{
|
||||
typedef Then RET;
|
||||
};
|
||||
|
||||
template <class Then, class Else>
|
||||
struct IF<false, Then, Else>
|
||||
{
|
||||
typedef Else RET;
|
||||
};
|
||||
|
||||
|
||||
template < typename Str1, typename Str2 >
|
||||
struct concat : mpl::insert_range<Str1, typename mpl::end<Str1>::type, Str2> {};
|
||||
template <typename Str1, typename Str2, typename Str3 >
|
||||
struct concat3 : mpl::insert_range<Str1, typename mpl::end<Str1>::type, typename concat<Str2, Str3 >::type > {};
|
||||
|
||||
typedef typename mpl::string<'f','i','z','z'>::type fizz;
|
||||
typedef typename mpl::string<'b','u','z','z'>::type buzz;
|
||||
typedef typename mpl::string<'\r', '\n'>::type mpendl;
|
||||
typedef typename concat<fizz, buzz>::type fizzbuzz;
|
||||
|
||||
// discovered boost mpl limitation on some length
|
||||
|
||||
template <int N>
|
||||
struct FizzBuzz
|
||||
{
|
||||
typedef typename concat3<typename FizzBuzz<N - 1>::type, typename IF<N % 15 == 0, typename fizzbuzz::type, typename IF<N % 3 == 0, typename fizz::type, typename IF<N % 5 == 0, typename buzz::type, typename IntToStr<N>::type >::RET >::RET >::RET, typename mpendl::type>::type type;
|
||||
};
|
||||
|
||||
template <>
|
||||
struct FizzBuzz<1>
|
||||
{
|
||||
typedef mpl::string<'1','\r','\n'>::type type;
|
||||
};
|
||||
|
||||
int main(int argc, char** argv)
|
||||
{
|
||||
const int n = 7;
|
||||
std::cout << mpl::c_str<FizzBuzz<n>::type>::value << std::endl;
|
||||
return 0;
|
||||
}
|
||||
26
Task/FizzBuzz/CLIPS/fizzbuzz.clips
Normal file
26
Task/FizzBuzz/CLIPS/fizzbuzz.clips
Normal file
|
|
@ -0,0 +1,26 @@
|
|||
(deffacts count
|
||||
(count-to 100)
|
||||
)
|
||||
|
||||
(defrule print-numbers
|
||||
(count-to ?max)
|
||||
=>
|
||||
(loop-for-count (?num ?max) do
|
||||
(if
|
||||
(= (mod ?num 3) 0)
|
||||
then
|
||||
(printout t "Fizz")
|
||||
)
|
||||
(if
|
||||
(= (mod ?num 5) 0)
|
||||
then
|
||||
(printout t "Buzz")
|
||||
)
|
||||
(if
|
||||
(and (> (mod ?num 3) 0) (> (mod ?num 5) 0))
|
||||
then
|
||||
(printout t ?num)
|
||||
)
|
||||
(priint depth, unsigned int i> struct NUM_DIGITS_CORE : NUM_DIGITS_COREntout t crlf)
|
||||
)
|
||||
)
|
||||
13
Task/FizzBuzz/CMake/fizzbuzz.cmake
Normal file
13
Task/FizzBuzz/CMake/fizzbuzz.cmake
Normal file
|
|
@ -0,0 +1,13 @@
|
|||
foreach(i RANGE 1 100)
|
||||
math(EXPR off3 "${i} % 3")
|
||||
math(EXPR off5 "${i} % 5")
|
||||
if(NOT off3 AND NOT off5)
|
||||
message(FizzBuzz)
|
||||
elseif(NOT off3)
|
||||
message(Fizz)
|
||||
elseif(NOT off5)
|
||||
message(Buzz)
|
||||
else()
|
||||
message(${i})
|
||||
endif()
|
||||
endforeach(i)
|
||||
36
Task/FizzBuzz/COBOL/fizzbuzz-1.cobol
Normal file
36
Task/FizzBuzz/COBOL/fizzbuzz-1.cobol
Normal file
|
|
@ -0,0 +1,36 @@
|
|||
* FIZZBUZZ.COB
|
||||
* cobc -x -g FIZZBUZZ.COB
|
||||
*
|
||||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. fizzbuzz.
|
||||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
01 CNT PIC 9(03) VALUE 1.
|
||||
01 REM PIC 9(03) VALUE 0.
|
||||
01 QUOTIENT PIC 9(03) VALUE 0.
|
||||
PROCEDURE DIVISION.
|
||||
*
|
||||
PERFORM UNTIL CNT > 100
|
||||
DIVIDE 15 INTO CNT GIVING QUOTIENT REMAINDER REM
|
||||
IF REM = 0
|
||||
THEN
|
||||
DISPLAY "FizzBuzz " WITH NO ADVANCING
|
||||
ELSE
|
||||
DIVIDE 3 INTO CNT GIVING QUOTIENT REMAINDER REM
|
||||
IF REM = 0
|
||||
THEN
|
||||
DISPLAY "Fizz " WITH NO ADVANCING
|
||||
ELSE
|
||||
DIVIDE 5 INTO CNT GIVING QUOTIENT REMAINDER REM
|
||||
IF REM = 0
|
||||
THEN
|
||||
DISPLAY "Buzz " WITH NO ADVANCING
|
||||
ELSE
|
||||
DISPLAY CNT " " WITH NO ADVANCING
|
||||
END-IF
|
||||
END-IF
|
||||
END-IF
|
||||
ADD 1 TO CNT
|
||||
END-PERFORM
|
||||
DISPLAY ""
|
||||
STOP RUN.
|
||||
16
Task/FizzBuzz/COBOL/fizzbuzz-2.cobol
Normal file
16
Task/FizzBuzz/COBOL/fizzbuzz-2.cobol
Normal file
|
|
@ -0,0 +1,16 @@
|
|||
Identification division.
|
||||
Program-id. fizz-buzz.
|
||||
|
||||
Data division.
|
||||
Working-storage section.
|
||||
|
||||
01 num pic 999.
|
||||
|
||||
Procedure division.
|
||||
Perform varying num from 1 by 1 until num > 100
|
||||
if function mod (num, 15) = 0 then display "fizzbuzz"
|
||||
else if function mod (num, 3) = 0 then display "fizz"
|
||||
else if function mod (num, 5) = 0 then display "buzz"
|
||||
else display num
|
||||
end-perform.
|
||||
Stop run.
|
||||
18
Task/FizzBuzz/Cduce/fizzbuzz.cduce
Normal file
18
Task/FizzBuzz/Cduce/fizzbuzz.cduce
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
(* FizzBuzz in CDuce *)
|
||||
|
||||
let format (n : Int) : Latin1 =
|
||||
if (n mod 3 = 0) || (n mod 5 = 0) then "FizzBuzz"
|
||||
else if (n mod 5 = 0) then "Buzz"
|
||||
else if (n mod 3 = 0) then "Fizz"
|
||||
else string_of (n);;
|
||||
|
||||
let fizz (n : Int, size : Int) : _ =
|
||||
print (format (n) @ "\n");
|
||||
if (n = size) then
|
||||
n = 0 (* do nothing *)
|
||||
else
|
||||
fizz(n + 1, size);;
|
||||
|
||||
let fizbuzz (size : Int) : _ = fizz (1, size);;
|
||||
|
||||
let _ = fizbuzz(100);;
|
||||
187
Task/FizzBuzz/Chef/fizzbuzz.chef
Normal file
187
Task/FizzBuzz/Chef/fizzbuzz.chef
Normal file
|
|
@ -0,0 +1,187 @@
|
|||
Irish Soda Bread with Club Soda.
|
||||
|
||||
This is FizzBuzz
|
||||
|
||||
Ingredients.
|
||||
1 l buttermilk
|
||||
|
||||
Method.
|
||||
Take buttermilk from refrigerator.
|
||||
Shake the buttermilk.
|
||||
Put buttermilk into the 6th mixing bowl.
|
||||
Serve with club soda.
|
||||
Pour contents of the 1st mixing bowl into the 1st baking dish.
|
||||
Clean the 1st mixing bowl.
|
||||
Watch the buttermilk until shaked.
|
||||
|
||||
Serves 1.
|
||||
|
||||
Club Soda.
|
||||
|
||||
Gets whether to print fizz buzz fizzbuzz or number.
|
||||
|
||||
Ingredients.
|
||||
70 g flour
|
||||
105 g salt
|
||||
122 ml milk
|
||||
66 g sugar
|
||||
117 ml vegetable oil
|
||||
3 cups fizzle
|
||||
5 cups seltzer
|
||||
1 cup bmilk
|
||||
1 cup ice
|
||||
1 cup baking soda
|
||||
1 g oregano
|
||||
32 ml vinegar
|
||||
1 g thyme
|
||||
1 g sage
|
||||
|
||||
Method.
|
||||
Put milk into the 1st mixing bowl.
|
||||
Put salt into the 1st mixing bowl.
|
||||
Put flour into the 1st mixing bowl.
|
||||
Put vinegar into the 1st mixing bowl.
|
||||
Put milk into the 1st mixing bowl.
|
||||
Stir the 1st mixing bowl for 5 minutes.
|
||||
Liquify contents of the 1st mixing bowl.
|
||||
Put fizzle into the 3rd mixing bowl.
|
||||
Combine seltzer into the 3rd mixing bowl.
|
||||
Fold bmilk into the 6th mixing bowl.
|
||||
Put bmilk into the 6th mixing bowl.
|
||||
Put seltzer into the 6th mixing bowl.
|
||||
Put bmilk into the 6th mixing bowl.
|
||||
Serve with moist cake.
|
||||
Fold bmilk into the 1st mixing bowl.
|
||||
Fold sage into the 6th mixing bowl.
|
||||
Fold sage into the 6th mixing bowl.
|
||||
Put bmilk into the 4th mixing bowl.
|
||||
Remove seltzer from the 4th mixing bowl.
|
||||
Fold oregano into the 4th mixing bowl.
|
||||
Smell the oregano.
|
||||
Fold bmilk into the 6th mixing bowl.
|
||||
Put bmilk into the 6th mixing bowl.
|
||||
Put fizzle into the 6th mixing bowl.
|
||||
Put bmilk into the 6th mixing bowl.
|
||||
Serve with moist cake.
|
||||
Fold bmilk into the 1st mixing bowl.
|
||||
Fold sage into the 6th mixing bowl.
|
||||
Fold sage into the 6th mixing bowl.
|
||||
Put bmilk into the 4th mixing bowl.
|
||||
Remove fizzle from the 4th mixing bowl.
|
||||
Fold oregano into the 4th mixing bowl.
|
||||
Crush the oregano.
|
||||
Clean the 1st mixing bowl.
|
||||
Fold bmilk into the 6th mixing bowl.
|
||||
Put bmilk into the 1st mixing bowl.
|
||||
Refrigerate.
|
||||
Grind until crushed.
|
||||
Refrigerate.
|
||||
Shuffle until smelled.
|
||||
Clean the 1st mixing bowl.
|
||||
Put milk into the 1st mixing bowl.
|
||||
Put vegetable oil into the 1st mixing bowl.
|
||||
Put sugar into the 1st mixing bowl.
|
||||
Put vinegar into the 1st mixing bowl.
|
||||
Put milk into the 1st mixing bowl.
|
||||
Stir the 1st mixing bowl for 5 minutes.
|
||||
Liquify contents of the 1st mixing bowl.
|
||||
Fold baking soda into the 3rd mixing bowl.
|
||||
Fold bmilk into the 6th mixing bowl.
|
||||
Put bmilk into the 6th mixing bowl.
|
||||
Put baking soda into the 6th mixing bowl.
|
||||
Put bmilk into the 6th mixing bowl.
|
||||
Serve with moist cake.
|
||||
Fold bmilk into the 1st mixing bowl.
|
||||
Fold sage into the 6th mixing bowl.
|
||||
Fold sage into the 6th mixing bowl.
|
||||
Put bmilk into the 4th mixing bowl.
|
||||
Remove baking soda from the 4th mixing bowl.
|
||||
Fold oregano into the 4th mixing bowl.
|
||||
Separate the oregano.
|
||||
Refrigerate.
|
||||
Part until separated.
|
||||
Put fizzle into the 6th mixing bowl.
|
||||
Serve with club soda.
|
||||
Stir the 1st mixing bowl for 1 minute.
|
||||
Stir the 1st mixing bowl for 7 minutes.
|
||||
Stir the 1st mixing bowl for 1 minute.
|
||||
Stir the 1st mixing bowl for 7 minutes.
|
||||
Stir the 1st mixing bowl for 5 minutes.
|
||||
Fold the oregano into the 1st mixing bowl.
|
||||
Fold the oregano into the 1st mixing bowl.
|
||||
Fold the oregano into the 1st mixing bowl.
|
||||
Fold the oregano into the 1st mixing bowl.
|
||||
Fold the oregano into the 1st mixing bowl.
|
||||
Refrigerate.
|
||||
|
||||
Moist cake.
|
||||
|
||||
Mods a number
|
||||
|
||||
Ingredients.
|
||||
1 cup chocolate
|
||||
70 g wheat flour
|
||||
1 cup white chocolate chips
|
||||
1 cup baking powder
|
||||
105 g honey
|
||||
5 cups syrup
|
||||
1 g vanilla
|
||||
1 g rosemary
|
||||
|
||||
Method.
|
||||
Fold chocolate into the 6th mixing bowl.
|
||||
Fold syrup into the 6th mixing bowl.
|
||||
Clean the 1st mixing bowl.
|
||||
Put chocolate into the 5th mixing bowl.
|
||||
Fold wheat flour into the 5th mixing bowl.
|
||||
Put white chocolate chips into the 5th mixing bowl.
|
||||
Remove white chocolate chips from the 5th mixing bowl.
|
||||
Fold baking powder into the 5th mixing bowl.
|
||||
Put baking powder into the 5th mixing bowl.
|
||||
Fold honey into the 5th mixing bowl.
|
||||
Sift the wheat flour.
|
||||
Put honey into the 5th mixing bowl.
|
||||
Add white chocolate chips into the 5th mixing bowl.
|
||||
Fold honey into the 5th mixing bowl.
|
||||
Put honey into the 5th mixing bowl.
|
||||
Remove syrup from the 5th mixing bowl.
|
||||
Fold vanilla into the 5th mixing bowl.
|
||||
Sprinkle the vanilla.
|
||||
Put white chocolate chips into the 5th mixing bowl.
|
||||
Remove white chocolate chips from the 5th mixing bowl.
|
||||
Fold rosemary into the 5th mixing bowl.
|
||||
Set aside.
|
||||
Move until sprinkled.
|
||||
Recite the rosemary.
|
||||
Put white chocolate chips into the 5th mixing bowl.
|
||||
Remove white chocolate chips from the 5th mixing bowl.
|
||||
Fold honey into the 5th mixing bowl.
|
||||
Put baking powder into the 5th mixing bowl.
|
||||
Add white chocolate chips into the 5th mixing bowl.
|
||||
Fold baking powder into the 5th mixing bowl.
|
||||
Set aside.
|
||||
Repeat until recited.
|
||||
Put white chocolate chips into the 5th mixing bowl.
|
||||
Fold rosemary into the 5th mixing bowl.
|
||||
Shuffle the wheat flour until sifted.
|
||||
Put the baking powder into the 5th mixing bowl.
|
||||
Combine syrup into the 5th mixing bowl.
|
||||
Fold honey into the 5th mixing bowl.
|
||||
Put chocolate into the 5th mixing bowl.
|
||||
Remove honey from the 5th mixing bowl.
|
||||
Fold chocolate into the 5th mixing bowl.
|
||||
Put white chocolate chips into the 5th mixing bowl.
|
||||
Fold rosemary into the 5th mixing bowl.
|
||||
Siphon chocolate.
|
||||
Put white chocolate chips into the 5th mixing bowl.
|
||||
Remove white chocolate chips from the 5th mixing bowl.
|
||||
Fold rosemary into the 5th mixing bowl.
|
||||
Set aside.
|
||||
Gulp until siphoned.
|
||||
Quote the rosemary.
|
||||
Put syrup into the 5th mixing bowl.
|
||||
Fold chocolate into the 5th mixing bowl.
|
||||
Set aside.
|
||||
Repeat until quoted.
|
||||
Put chocolate into the 1st mixing bowl.
|
||||
Refrigerate.
|
||||
8
Task/FizzBuzz/Clay/fizzbuzz.clay
Normal file
8
Task/FizzBuzz/Clay/fizzbuzz.clay
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
main() {
|
||||
for(i in range(1,100)) {
|
||||
if(i % 3 == 0 and i % 5 == 0) println("fizzbuzz");
|
||||
else if(i % 3 == 0) println("fizz");
|
||||
else if(i % 5 == 0) println("buzz");
|
||||
else print(i);
|
||||
}
|
||||
}
|
||||
9
Task/FizzBuzz/Clipper/fizzbuzz.clipper
Normal file
9
Task/FizzBuzz/Clipper/fizzbuzz.clipper
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
Procedure Main()
|
||||
Local n
|
||||
Local cFB
|
||||
For n := 1 to 100
|
||||
cFB := ""
|
||||
AEval( {{3,"Fizz"},{5,"Buzz"}}, {|x| cFB += Iif((n % x[1])==0, x[2], "")})
|
||||
?? Iif(cFB == "", LTrim(Str(n)), cFB) + Iif(n == 100, ".", ", ")
|
||||
Next
|
||||
Return
|
||||
22
Task/FizzBuzz/Common-Lisp/fizzbuzz.lisp
Normal file
22
Task/FizzBuzz/Common-Lisp/fizzbuzz.lisp
Normal file
|
|
@ -0,0 +1,22 @@
|
|||
;; Solution 1:
|
||||
(defun fizzbuzz ()
|
||||
(loop for x from 1 to 100 do
|
||||
(princ (cond ((zerop (mod x 15)) "FizzBuzz")
|
||||
((zerop (mod x 3)) "Fizz")
|
||||
((zerop (mod x 5)) "Buzz")
|
||||
(t x)))
|
||||
(terpri)))
|
||||
|
||||
;; Solution 2:
|
||||
(defun fizzbuzz ()
|
||||
(loop for x from 1 to 100 do
|
||||
(format t "~&~{~A~}"
|
||||
(or (append (when (zerop (mod x 3)) '("Fizz"))
|
||||
(when (zerop (mod x 5)) '("Buzz")))
|
||||
(list x)))))
|
||||
|
||||
;; Solution 3:
|
||||
(defun fizzbuzz ()
|
||||
(loop for n from 1 to 100
|
||||
do (format t "~&~[~[FizzBuzz~:;Fizz~]~*~:;~[Buzz~*~:;~D~]~]~%"
|
||||
(mod n 3) (mod n 5) n)))
|
||||
35
Task/FizzBuzz/D/fizzbuzz.d
Normal file
35
Task/FizzBuzz/D/fizzbuzz.d
Normal file
|
|
@ -0,0 +1,35 @@
|
|||
import std.stdio: writeln;
|
||||
|
||||
// with if-else
|
||||
void fizzBuzz(int n) {
|
||||
foreach (i; 1 .. n+1)
|
||||
if (!(i % 15))
|
||||
writeln("FizzBuzz");
|
||||
else if (!(i % 3))
|
||||
writeln("Fizz");
|
||||
else if (!(i % 5))
|
||||
writeln("Buzz");
|
||||
else
|
||||
writeln(i);
|
||||
}
|
||||
|
||||
// with switch case
|
||||
void fizzBuzzSwitch(int n) {
|
||||
foreach (i; 1 .. n+1)
|
||||
switch(i % 15) {
|
||||
case 0:
|
||||
writeln("FizzBuzz"); break;
|
||||
case 3, 6, 9, 12:
|
||||
writeln("Fizz"); break;
|
||||
case 5, 10:
|
||||
writeln("Buzz"); break;
|
||||
default:
|
||||
writeln(i);
|
||||
}
|
||||
}
|
||||
|
||||
void main() {
|
||||
fizzBuzz(100);
|
||||
writeln();
|
||||
fizzBuzzSwitch(100);
|
||||
}
|
||||
11
Task/FizzBuzz/DWScript/fizzbuzz.dwscript
Normal file
11
Task/FizzBuzz/DWScript/fizzbuzz.dwscript
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
var i : Integer;
|
||||
|
||||
for i := 1 to 100 do begin
|
||||
if i mod 15 = 0 then
|
||||
PrintLn('FizzBuzz')
|
||||
else if i mod 3 = 0 then
|
||||
PrintLn('Fizz')
|
||||
else if i mod 5 = 0 then
|
||||
PrintLn('Buzz')
|
||||
else PrintLn(i);
|
||||
end;
|
||||
4
Task/FizzBuzz/Dart/fizzbuzz.dart
Normal file
4
Task/FizzBuzz/Dart/fizzbuzz.dart
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
main() {
|
||||
for(int i=1;i<=100;i++)
|
||||
print((i%3==0?"Fizz":"")+(i%5==0?"Buzz":"")+(i%3!=0&&i%5!=0?i:""));
|
||||
}
|
||||
21
Task/FizzBuzz/Delphi/fizzbuzz.delphi
Normal file
21
Task/FizzBuzz/Delphi/fizzbuzz.delphi
Normal file
|
|
@ -0,0 +1,21 @@
|
|||
program FizzBuzz;
|
||||
|
||||
{$APPTYPE CONSOLE}
|
||||
|
||||
uses SysUtils;
|
||||
|
||||
var
|
||||
i: Integer;
|
||||
begin
|
||||
for i := 1 to 100 do
|
||||
begin
|
||||
if i mod 15 = 0 then
|
||||
Writeln('FizzBuzz')
|
||||
else if i mod 3 = 0 then
|
||||
Writeln('Fizz')
|
||||
else if i mod 5 = 0 then
|
||||
Writeln('Buzz')
|
||||
else
|
||||
Writeln(i);
|
||||
end;
|
||||
end.
|
||||
8
Task/FizzBuzz/E/fizzbuzz.e
Normal file
8
Task/FizzBuzz/E/fizzbuzz.e
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
for i in 1..100 {
|
||||
println(switch ([i % 3, i % 5]) {
|
||||
match [==0, ==0] { "FizzBuzz" }
|
||||
match [==0, _ ] { "Fizz" }
|
||||
match [_, ==0] { "Buzz" }
|
||||
match _ { i }
|
||||
})
|
||||
}
|
||||
8
Task/FizzBuzz/Ela/fizzbuzz.ela
Normal file
8
Task/FizzBuzz/Ela/fizzbuzz.ela
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
open list
|
||||
|
||||
prt x | x % 15 == 0 = "FizzBuzz"
|
||||
| x % 3 == 0 = "Fizz"
|
||||
| x % 5 == 0 = "Buzz"
|
||||
| else = x
|
||||
|
||||
[1..100] |> map prt
|
||||
12
Task/FizzBuzz/Elixir/fizzbuzz.elixir
Normal file
12
Task/FizzBuzz/Elixir/fizzbuzz.elixir
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
Enum.each 1..100, fn x ->
|
||||
IO.puts(case { rem(x, 5) == 0, rem(x,3) == 0 } do
|
||||
{ true, true } ->
|
||||
"FizzBuzz"
|
||||
{ true, false } ->
|
||||
"Fizz"
|
||||
{ false, true } ->
|
||||
"Buzz"
|
||||
{ false, false } ->
|
||||
x
|
||||
end)
|
||||
end
|
||||
33
Task/FizzBuzz/Euphoria/fizzbuzz.euphoria
Normal file
33
Task/FizzBuzz/Euphoria/fizzbuzz.euphoria
Normal file
|
|
@ -0,0 +1,33 @@
|
|||
include std/utils.e
|
||||
|
||||
function fb( atom n )
|
||||
sequence fb
|
||||
if remainder( n, 15 ) = 0 then
|
||||
fb = "FizzBuzz"
|
||||
elsif remainder( n, 5 ) = 0 then
|
||||
fb = "Fizz"
|
||||
elsif remainder( n, 3 ) = 0 then
|
||||
fb = "Buzz"
|
||||
else
|
||||
fb = sprintf( "%d", n )
|
||||
end if
|
||||
return fb
|
||||
end function
|
||||
|
||||
function fb2( atom n )
|
||||
return iif( remainder(n, 15) = 0, "FizzBuzz",
|
||||
iif( remainder( n, 5 ) = 0, "Fizz",
|
||||
iif( remainder( n, 3) = 0, "Buzz", sprintf( "%d", n ) ) ) )
|
||||
end function
|
||||
|
||||
for i = 1 to 30 do
|
||||
printf( 1, "%s ", { fb( i ) } )
|
||||
end for
|
||||
|
||||
puts( 1, "\n" )
|
||||
|
||||
for i = 1 to 30 do
|
||||
printf( 1, "%s ", { fb2( i ) } )
|
||||
end for
|
||||
|
||||
puts( 1, "\n" )
|
||||
Loading…
Add table
Add a link
Reference in a new issue