Data update
This commit is contained in:
Ingy döt Net
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,50 +0,0 @@
|
|||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
|
||||
with Ada.Containers.Generic_Array_Sort;
|
||||
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
|
||||
with Ada.Text_IO.Unbounded_IO; use Ada.Text_IO.Unbounded_IO;
|
||||
|
||||
procedure Main is
|
||||
type map_element is record
|
||||
Num : Positive;
|
||||
Word : Unbounded_String;
|
||||
end record;
|
||||
|
||||
type map_list is array (Positive range <>) of map_element;
|
||||
|
||||
function "<" (Left, Right : map_element) return Boolean is
|
||||
begin
|
||||
return Left.Num < Right.Num;
|
||||
end "<";
|
||||
|
||||
procedure list_sort is new Ada.Containers.Generic_Array_Sort
|
||||
(Index_Type => Positive, Element_Type => map_element,
|
||||
Array_Type => map_list);
|
||||
|
||||
procedure general_fizz_buzz (max : Positive; words : in out map_list) is
|
||||
found : Boolean;
|
||||
begin
|
||||
list_sort (words);
|
||||
|
||||
for i in 1 .. max loop
|
||||
found := False;
|
||||
for element of words loop
|
||||
if i mod element.Num = 0 then
|
||||
found := True;
|
||||
Put (element.Word);
|
||||
end if;
|
||||
end loop;
|
||||
if not found then
|
||||
Put (Item => i, Width => 1);
|
||||
end if;
|
||||
New_Line;
|
||||
end loop;
|
||||
end general_fizz_buzz;
|
||||
|
||||
fizzy : map_list :=
|
||||
((3, To_Unbounded_String ("FIZZ")), (7, To_Unbounded_String ("BAXX")),
|
||||
(5, To_Unbounded_String ("BUZZ")));
|
||||
|
||||
begin
|
||||
general_fizz_buzz (20, fizzy);
|
||||
end Main;
|
||||
|
|
@ -1,50 +1,12 @@
|
|||
counter = 0
|
||||
|
||||
puts "Enter a maximum number:"
|
||||
limit = gets
|
||||
|
||||
puts "Enter the first integer for factoring:"
|
||||
first_int = gets
|
||||
puts "Enter the name of the first integer:"
|
||||
first_int_name = gets
|
||||
|
||||
puts "Enter the second integer for factoring:"
|
||||
second_int = gets
|
||||
puts "Enter the name of the second integer:"
|
||||
second_int_name = gets
|
||||
|
||||
puts "Enter the third integer for factoring:"
|
||||
third_int = gets
|
||||
puts "Enter the name of the third integer:"
|
||||
third_int_name = gets
|
||||
|
||||
if (limit &&
|
||||
first_int &&
|
||||
second_int &&
|
||||
third_int &&
|
||||
first_int_name &&
|
||||
second_int_name &&
|
||||
third_int_name)
|
||||
limit = limit.chomp.to_i
|
||||
first_int = first_int.chomp.to_i
|
||||
second_int = second_int.chomp.to_i
|
||||
third_int = third_int.chomp.to_i
|
||||
while limit > counter
|
||||
counter += 1
|
||||
if (counter % first_int) == 0 && (counter % second_int) == 0 && (counter % third_int) == 0
|
||||
puts first_int_name + second_int_name + third_int_name
|
||||
elsif (counter % first_int) == 0 && (counter % second_int) == 0
|
||||
puts first_int_name + second_int_name
|
||||
elsif (counter % first_int) == 0
|
||||
puts first_int_name
|
||||
elsif (counter % second_int) == 0
|
||||
puts second_int_name
|
||||
elsif (counter % third_int) == 0
|
||||
puts third_int_name
|
||||
else
|
||||
puts counter
|
||||
def fizz_buzz_plus (factorwords, limit)
|
||||
factorwords = factorwords.sort_by { |f, w| f }
|
||||
(1..limit).each do |n|
|
||||
shout = ""
|
||||
factorwords.each do |factor, word|
|
||||
shout += word if n % factor == 0
|
||||
end
|
||||
puts (shout == "" ? n : shout)
|
||||
end
|
||||
else
|
||||
exit
|
||||
end
|
||||
|
||||
fizz_buzz_plus [{3, "Fizz"}, {5, "Buzz"}, {7, "Baxx"}], 20
|
||||
|
|
|
|||
|
|
@ -1,17 +1,17 @@
|
|||
-->
|
||||
<span style="color: #008080;">procedure</span> <span style="color: #000000;">general_fizz_buzz</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">lim</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">sequence</span> <span style="color: #000000;">words</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">facts</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">lim</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #004080;">string</span> <span style="color: #000000;">word</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">""</span>
|
||||
<span style="color: #008080;">for</span> <span style="color: #000000;">j</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">facts</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
|
||||
<span style="color: #008080;">if</span> <span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">facts</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span><span style="color: #0000FF;">])=</span><span style="color: #000000;">0</span> <span style="color: #008080;">then</span>
|
||||
<span style="color: #000000;">word</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">words</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span><span style="color: #0000FF;">]</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
|
||||
<span style="color: #008080;">if</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">word</span><span style="color: #0000FF;">)=</span><span style="color: #000000;">0</span> <span style="color: #008080;">then</span>
|
||||
<span style="color: #000000;">word</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"%d"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">i</span><span style="color: #0000FF;">)</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
|
||||
<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"%s\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">word</span><span style="color: #0000FF;">})</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
|
||||
<span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
|
||||
<span style="color: #000000;">general_fizz_buzz</span><span style="color: #0000FF;">(</span><span style="color: #000000;">20</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #008000;">"Fizz"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Buzz"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Baxx"</span><span style="color: #0000FF;">},</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">3</span><span style="color: #0000FF;">,</span><span style="color: #000000;">5</span><span style="color: #0000FF;">,</span><span style="color: #000000;">7</span><span style="color: #0000FF;">})</span>
|
||||
<!--
|
||||
with javascript_semantics
|
||||
|
||||
procedure general_fizz_buzz(integer lim, sequence words, facts)
|
||||
for i=1 to lim do
|
||||
string word = ""
|
||||
for j, f in facts do
|
||||
if remainder(i,f)=0 then
|
||||
word &= words[j]
|
||||
end if
|
||||
end for
|
||||
if length(word)=0 then
|
||||
word = sprintf("%d",i)
|
||||
end if
|
||||
printf(1,"%s\n",{word})
|
||||
end for
|
||||
end procedure
|
||||
general_fizz_buzz(20, {"Fizz","Buzz","Baxx"}, {3,5,7})
|
||||
|
|
|
|||
|
|
@ -1,19 +0,0 @@
|
|||
$limit = 20
|
||||
$data = @("3 Fizz","5 Buzz","7 Baxx")
|
||||
#An array with whitespace as the delimiter
|
||||
#Between the factor and the word
|
||||
|
||||
for ($i = 1;$i -le $limit;$i++){
|
||||
$outP = ""
|
||||
foreach ($x in $data){
|
||||
$data_split = $x -split " " #Split the "<factor> <word>"
|
||||
if (($i % $data_split[0]) -eq 0){
|
||||
$outP += $data_split[1] #Append the <word> to outP
|
||||
}
|
||||
}
|
||||
if(!$outP){ #Is outP equal to NUL?
|
||||
Write-HoSt $i
|
||||
} else {
|
||||
Write-HoSt $outP
|
||||
}
|
||||
}
|
||||
|
|
@ -1,34 +0,0 @@
|
|||
'The Function
|
||||
Function FizzBuzz(range, mapping)
|
||||
data = Array()
|
||||
|
||||
'Parse the mapping and put to "data" array
|
||||
temp = Split(mapping, ",")
|
||||
ReDim data(UBound(temp),1)
|
||||
For i = 0 To UBound(temp)
|
||||
map = Split(temp(i), " ")
|
||||
data(i, 0) = map(0)
|
||||
data(i, 1) = map(1)
|
||||
Next
|
||||
|
||||
'Do the loop
|
||||
For i = 1 to range
|
||||
noMatch = True
|
||||
For j = 0 to UBound(data, 1)
|
||||
If (i Mod data(j, 0)) = 0 Then
|
||||
WScript.StdOut.Write data(j, 1)
|
||||
noMatch = False
|
||||
End If
|
||||
Next
|
||||
If noMatch Then WScript.StdOut.Write i
|
||||
WScript.StdOut.Write vbCrLf
|
||||
Next
|
||||
End Function
|
||||
|
||||
'The Main Thing
|
||||
WScript.StdOut.Write "Range? "
|
||||
x = WScript.StdIn.ReadLine
|
||||
WScript.StdOut.Write "Mapping? "
|
||||
y = WScript.StdIn.ReadLine
|
||||
WScript.StdOut.WriteLine ""
|
||||
FizzBuzz x, y
|
||||
Loading…
Add table
Add a link
Reference in a new issue