/
Correction_OCaml(UNFINISHED).ml
167 lines (134 loc) · 5.26 KB
/
Correction_OCaml(UNFINISHED).ml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
(*
* Correction_Ocaml.ml
* Correction_Ocaml
*
* Created by P1kachu on UNFINISHED
* Copyright (c) 2015 P1kachu. All rights reserved.
*
* Reviewed by:
* - No one yet.
*)
(* Part One: *)
(* FIXME: Declare variables
* Declare two variables: an integer named "age", and a string named "name" with corresponding values (your name and age)
*)
let age = 20;;
let name = "P1kachu";;
(* FIXME: Print
* Print the following sentence in the console "You are NAME and you are AGE years old !". Don't forget to add a newline at the end
*)
print_endline ("You are " ^ name ^ " and you are " ^ (string_of_int age) ^ " years old !");;
(* FiXME: Concatenation
* Create a new string variable called "hello" which value is "Hello ". Add "name" at the end of "hello" (Concatenation) then print it
*)
let hello = "Hello ";;
let hello = hello ^ name;;
print_endline hello;;
(* FIXME: Array
* create a new string array called "shoppingList", with three elements of your choice. Create an int variable containing the number of
* elements in "shoppingList" (using a function of the array/using the array)
*)
let shoppingList = [|"Guitar"; "A job"; "Tea"|];;
let array_size = Array.length shoppingList;;
(* FIXME: For-loop - Integer
* Create a simple for-loop for an integer "i" going from 1 to 10 that print the value of "i"
*)
for i = 1 to 10 do
print_endline (string_of_int i) (* No semicolon *)
done;;
(* FIXME: For-loop - shoppingList
* Create a for loop that iterate through "shoppingList" and prints each element.
*)
for i = 0 to array_size - 1 do (print_endline (shoppingList.(i))) done;;
(* FIXME: Foreach-loop
* Do the same with a foreach-loop.
*)
Array.iter(fun s -> print_endline s) shoppingList;;
(* FIXME: If-statement
* Modify the first for-loop (with i from 1 to 10) such that it prints "(value of i) is even" when "i" is divisible
* by 2 (You may want to learn more about "modulo" (%)). Else, print "(value of i) is odd".
*)
for i = 1 to 10 do
if i mod 2 = 0 then (print_endline ((string_of_int i) ^ " is even"))
else (print_endline ((string_of_int i) ^ " is odd"))
done;;
(* FIXME: Sum Up
* Create a string variable called "element" with the value of your choice. Then create a for-loop that checks if "shoppingList" contains
* "element". If yes, print "You have to buy (value of element) !", and stop the loop (search how to stop a loop).
* If not, print "Nope, you don't need (value of "element")".
*)
(* FUCK DAT *)
(* Part Two: *)
(* FIXME: Functions - Ascii
* Create a function that returns nothing and which doesn't takes any parameter. It should just be named "TriForce"
* and print the TriForce symbol (one triangle over two other ones, can be found on internet) with "TRIFORCE"
* Don't forget to call the function !
*)
let triforce () =
print_endline " /\\ ";
print_endline " /__\\ ";
print_endline " /\\ /\\ ";
print_endline "/__\\/__\\ ";
print_endline "TRIFORCE";;
triforce ();;
(* FIXME: Functions - One parameter
* Create a function that takes a string as parameter and returns "Hello (value of string) !"
*)
let hello_function str =
print_endline ("Hello " ^ str ^ " !");;
hello_function "my friend";;
(* FIXME: Functions - Multiple parameters
* Create a function that takes two integers as parameters and returns the addition of these two.
* You can do the same with multiplication, subtraction and division.
*)
let p_int x = print_endline (string_of_int x);; (* DISPLAY AN INT WITH A NEWLINE *)
let addition int1 int2 = int1 + int2;;
p_int (addition 21 21)
let substraction int1 int2 = int1 - int2;;
p_int (substraction 21 21)
let multiplication int1 int2 = int1 * int2;;
p_int (multiplication 2 21)
let division int1 int2 = int1 / int2;;
p_int (division 84 2)
(* FIXME: User entry
* Create a string variable that takes what the user enter in the console as value. Then print "You entered (value of string)"
*)
let user_input = read_line ();;
print_endline ("You entered " ^ user_input);;
(* FIXME: While loop
* Create a while loop that takes a number and divides it by 2 until it is less than 3
*)
let a = 42;;
while a > 3 do
let a = a/2
done;;
(* FIXME: do-While loop
* Do the same with a do-while loop
*)
(* FIXME: Random generator
* Create a function that returns a random number
*)
(* FIXME: Random generator with bounds
* Create another function that returns a random number between two bounds given as parameters.
*)
(* FIXME: Multidimensional array
* Create a two dimensional int array of 3 columns and 3 rows. Use 2 for-loops to add a random number
* between 1 and 9 in each of the 9 rooms.
* You may use one of the two previously created function.
* Then print them such that they appear like this (with [x1,x9] being the 9 random integers):
* {x1,x2,x3,}
* {x4,x5,x6,}
* {x7,x8,x9,}
*)
(* FIXME: Switch
* Create a Switch that takes an integer "a" and return a sentence regarding the value of a
* (Create 3 statements for 3 specific values and a default one)
*)
(* FIXME: logic Gates
* Create 7 functions for each logic gates (And, Or, No, Nand, Nor, Xnor, Xor).
* Each function takes two booleans as parameters and returns the result of the logic gate.
* (or You can do it with a switch and only one function)
*)
(* FIXME - Reverse
* Create a function that reverse a string
*)