Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

refactor(ocaml): refactoring ocaml formula #28

Merged
merged 2 commits into from
Nov 9, 2023
Merged

refactor(ocaml): refactoring ocaml formula #28

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
ca6cff2
refactor(ocaml): refactoring ocaml formula
henrylee97 Nov 9, 2023
bfd968f
fix: fix tags in metadata
henrylee97 Nov 9, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
The table of contents is too big for display.
Diff view
Diff view
  •  
  •  
  •  
2 changes: 2 additions & 0 deletions OCaml/formula-1/.dockerignore
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
.dockerignore
Dockerfile
6 changes: 6 additions & 0 deletions OCaml/formula-1/Dockerfile
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
FROM ghcr.io/sambyeol/ocaml-devcontainer:4.14.1-debian-root

USER root
RUN mkdir -p /workspace
WORKDIR /workspace
COPY . /workspace
0 functional/OCaml/formula/bugs/bug_1/bug.ml → OCaml/formula-1/buggy/src.ml
View file
Open in desktop
File renamed without changes.
0 functional/OCaml/formula/src/testcases → OCaml/formula-1/buggy/testcases
View file
Open in desktop
File renamed without changes.
12 changes: 12 additions & 0 deletions OCaml/formula-1/metadata.json
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
{
"language": "ocaml",
"id": "formula-1",

"buggyPath": "buggy",
"referencePath": null,

"buildCommand": "ocamlc src.ml",
"testCommand": null,

"categories": ["functional"]
}
2 changes: 2 additions & 0 deletions OCaml/formula-10/.dockerignore
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
.dockerignore
Dockerfile
6 changes: 6 additions & 0 deletions OCaml/formula-10/Dockerfile
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
FROM ghcr.io/sambyeol/ocaml-devcontainer:4.14.1-debian-root

USER root
RUN mkdir -p /workspace
WORKDIR /workspace
COPY . /workspace
0 functional/OCaml/formula/bugs/bug_10/bug.ml → OCaml/formula-10/buggy/src.ml
View file
Open in desktop
File renamed without changes.
20 changes: 20 additions & 0 deletions OCaml/formula-10/buggy/testcases
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
{
Imply (Not False,Not False) => true;
Imply (Not False,AndAlso (True,False)) => false;
Imply (False, False) => true;
Equal (Minus (Num 5,Num 2),Num 3) => true;
Not (Not (Not (Not (Imply (True, True))))) => true;
AndAlso (OrElse(True, False), Not (Imply (True, False))) => true;
Not (Imply (AndAlso (False, True), OrElse (False, False))) => false;
Equal (Plus (Minus (Num 4, Num 5), Minus (Num 1, Num (-1))), Plus (Minus (Num 3, Num (-5)), Plus (Num 4, Num 5))) => false;
OrElse (Equal (Minus (Num 3, Num 4), Plus (Num 3, Num 4)), AndAlso (Not (True), True)) => false;
AndAlso (AndAlso(True, True), AndAlso (Not (AndAlso (True, False)), Not (OrElse (False, False)))) => true;
OrElse (True, True) => true;
OrElse (True, Not True) => true;
Equal (Num 1, Plus (Num 0, Num 1)) => true;
AndAlso ((True, Not (True))) => false;
OrElse ((False, Not (False))) => true;
Imply (False, True) => true;
Not (Not (Not (True))) => false;
Not (AndAlso ((True, Not (False)))) => false;
}
12 changes: 12 additions & 0 deletions OCaml/formula-10/metadata.json
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
{
"language": "ocaml",
"id": "formula-10",

"buggyPath": "buggy",
"referencePath": null,

"buildCommand": "ocamlc src.ml",
"testCommand": null,

"categories": ["functional"]
}
2 changes: 2 additions & 0 deletions OCaml/formula-100/.dockerignore
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
.dockerignore
Dockerfile
6 changes: 6 additions & 0 deletions OCaml/formula-100/Dockerfile
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
FROM ghcr.io/sambyeol/ocaml-devcontainer:4.14.1-debian-root

USER root
RUN mkdir -p /workspace
WORKDIR /workspace
COPY . /workspace
0 functional/OCaml/formula/bugs/bug_100/bug.ml → OCaml/formula-100/buggy/src.ml
View file
Open in desktop
File renamed without changes.
20 changes: 20 additions & 0 deletions OCaml/formula-100/buggy/testcases
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
{
Imply (Not False,Not False) => true;
Imply (Not False,AndAlso (True,False)) => false;
Imply (False, False) => true;
Equal (Minus (Num 5,Num 2),Num 3) => true;
Not (Not (Not (Not (Imply (True, True))))) => true;
AndAlso (OrElse(True, False), Not (Imply (True, False))) => true;
Not (Imply (AndAlso (False, True), OrElse (False, False))) => false;
Equal (Plus (Minus (Num 4, Num 5), Minus (Num 1, Num (-1))), Plus (Minus (Num 3, Num (-5)), Plus (Num 4, Num 5))) => false;
OrElse (Equal (Minus (Num 3, Num 4), Plus (Num 3, Num 4)), AndAlso (Not (True), True)) => false;
AndAlso (AndAlso(True, True), AndAlso (Not (AndAlso (True, False)), Not (OrElse (False, False)))) => true;
OrElse (True, True) => true;
OrElse (True, Not True) => true;
Equal (Num 1, Plus (Num 0, Num 1)) => true;
AndAlso ((True, Not (True))) => false;
OrElse ((False, Not (False))) => true;
Imply (False, True) => true;
Not (Not (Not (True))) => false;
Not (AndAlso ((True, Not (False)))) => false;
}
12 changes: 12 additions & 0 deletions OCaml/formula-100/metadata.json
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
{
"language": "ocaml",
"id": "formula-100",

"buggyPath": "buggy",
"referencePath": null,

"buildCommand": "ocamlc src.ml",
"testCommand": null,

"categories": ["functional"]
}
2 changes: 2 additions & 0 deletions OCaml/formula-11/.dockerignore
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
.dockerignore
Dockerfile
6 changes: 6 additions & 0 deletions OCaml/formula-11/Dockerfile
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
FROM ghcr.io/sambyeol/ocaml-devcontainer:4.14.1-debian-root

USER root
RUN mkdir -p /workspace
WORKDIR /workspace
COPY . /workspace
0 functional/OCaml/formula/bugs/bug_11/bug.ml → OCaml/formula-11/buggy/src.ml
View file
Open in desktop
File renamed without changes.
20 changes: 20 additions & 0 deletions OCaml/formula-11/buggy/testcases
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
{
Imply (Not False,Not False) => true;
Imply (Not False,AndAlso (True,False)) => false;
Imply (False, False) => true;
Equal (Minus (Num 5,Num 2),Num 3) => true;
Not (Not (Not (Not (Imply (True, True))))) => true;
AndAlso (OrElse(True, False), Not (Imply (True, False))) => true;
Not (Imply (AndAlso (False, True), OrElse (False, False))) => false;
Equal (Plus (Minus (Num 4, Num 5), Minus (Num 1, Num (-1))), Plus (Minus (Num 3, Num (-5)), Plus (Num 4, Num 5))) => false;
OrElse (Equal (Minus (Num 3, Num 4), Plus (Num 3, Num 4)), AndAlso (Not (True), True)) => false;
AndAlso (AndAlso(True, True), AndAlso (Not (AndAlso (True, False)), Not (OrElse (False, False)))) => true;
OrElse (True, True) => true;
OrElse (True, Not True) => true;
Equal (Num 1, Plus (Num 0, Num 1)) => true;
AndAlso ((True, Not (True))) => false;
OrElse ((False, Not (False))) => true;
Imply (False, True) => true;
Not (Not (Not (True))) => false;
Not (AndAlso ((True, Not (False)))) => false;
}
12 changes: 12 additions & 0 deletions OCaml/formula-11/metadata.json
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
{
"language": "ocaml",
"id": "formula-11",

"buggyPath": "buggy",
"referencePath": null,

"buildCommand": "ocamlc src.ml",
"testCommand": null,

"categories": ["functional"]
}
2 changes: 2 additions & 0 deletions OCaml/formula-12/.dockerignore
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
.dockerignore
Dockerfile
6 changes: 6 additions & 0 deletions OCaml/formula-12/Dockerfile
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
FROM ghcr.io/sambyeol/ocaml-devcontainer:4.14.1-debian-root

USER root
RUN mkdir -p /workspace
WORKDIR /workspace
COPY . /workspace
0 functional/OCaml/formula/bugs/bug_12/bug.ml → OCaml/formula-12/buggy/src.ml
View file
Open in desktop
File renamed without changes.
20 changes: 20 additions & 0 deletions OCaml/formula-12/buggy/testcases
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
{
Imply (Not False,Not False) => true;
Imply (Not False,AndAlso (True,False)) => false;
Imply (False, False) => true;
Equal (Minus (Num 5,Num 2),Num 3) => true;
Not (Not (Not (Not (Imply (True, True))))) => true;
AndAlso (OrElse(True, False), Not (Imply (True, False))) => true;
Not (Imply (AndAlso (False, True), OrElse (False, False))) => false;
Equal (Plus (Minus (Num 4, Num 5), Minus (Num 1, Num (-1))), Plus (Minus (Num 3, Num (-5)), Plus (Num 4, Num 5))) => false;
OrElse (Equal (Minus (Num 3, Num 4), Plus (Num 3, Num 4)), AndAlso (Not (True), True)) => false;
AndAlso (AndAlso(True, True), AndAlso (Not (AndAlso (True, False)), Not (OrElse (False, False)))) => true;
OrElse (True, True) => true;
OrElse (True, Not True) => true;
Equal (Num 1, Plus (Num 0, Num 1)) => true;
AndAlso ((True, Not (True))) => false;
OrElse ((False, Not (False))) => true;
Imply (False, True) => true;
Not (Not (Not (True))) => false;
Not (AndAlso ((True, Not (False)))) => false;
}
12 changes: 12 additions & 0 deletions OCaml/formula-12/metadata.json
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
{
"language": "ocaml",
"id": "formula-12",

"buggyPath": "buggy",
"referencePath": null,

"buildCommand": "ocamlc src.ml",
"testCommand": null,

"categories": ["functional"]
}
2 changes: 2 additions & 0 deletions OCaml/formula-13/.dockerignore
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
.dockerignore
Dockerfile
6 changes: 6 additions & 0 deletions OCaml/formula-13/Dockerfile
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
FROM ghcr.io/sambyeol/ocaml-devcontainer:4.14.1-debian-root

USER root
RUN mkdir -p /workspace
WORKDIR /workspace
COPY . /workspace
0 functional/OCaml/formula/bugs/bug_13/bug.ml → OCaml/formula-13/buggy/src.ml
View file
Open in desktop
File renamed without changes.
20 changes: 20 additions & 0 deletions OCaml/formula-13/buggy/testcases
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
{
Imply (Not False,Not False) => true;
Imply (Not False,AndAlso (True,False)) => false;
Imply (False, False) => true;
Equal (Minus (Num 5,Num 2),Num 3) => true;
Not (Not (Not (Not (Imply (True, True))))) => true;
AndAlso (OrElse(True, False), Not (Imply (True, False))) => true;
Not (Imply (AndAlso (False, True), OrElse (False, False))) => false;
Equal (Plus (Minus (Num 4, Num 5), Minus (Num 1, Num (-1))), Plus (Minus (Num 3, Num (-5)), Plus (Num 4, Num 5))) => false;
OrElse (Equal (Minus (Num 3, Num 4), Plus (Num 3, Num 4)), AndAlso (Not (True), True)) => false;
AndAlso (AndAlso(True, True), AndAlso (Not (AndAlso (True, False)), Not (OrElse (False, False)))) => true;
OrElse (True, True) => true;
OrElse (True, Not True) => true;
Equal (Num 1, Plus (Num 0, Num 1)) => true;
AndAlso ((True, Not (True))) => false;
OrElse ((False, Not (False))) => true;
Imply (False, True) => true;
Not (Not (Not (True))) => false;
Not (AndAlso ((True, Not (False)))) => false;
}
12 changes: 12 additions & 0 deletions OCaml/formula-13/metadata.json
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
{
"language": "ocaml",
"id": "formula-13",

"buggyPath": "buggy",
"referencePath": null,

"buildCommand": "ocamlc src.ml",
"testCommand": null,

"categories": ["functional"]
}
2 changes: 2 additions & 0 deletions OCaml/formula-14/.dockerignore
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
.dockerignore
Dockerfile
6 changes: 6 additions & 0 deletions OCaml/formula-14/Dockerfile
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
FROM ghcr.io/sambyeol/ocaml-devcontainer:4.14.1-debian-root

USER root
RUN mkdir -p /workspace
WORKDIR /workspace
COPY . /workspace
0 functional/OCaml/formula/bugs/bug_14/bug.ml → OCaml/formula-14/buggy/src.ml
View file
Open in desktop
File renamed without changes.
20 changes: 20 additions & 0 deletions OCaml/formula-14/buggy/testcases
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
{
Imply (Not False,Not False) => true;
Imply (Not False,AndAlso (True,False)) => false;
Imply (False, False) => true;
Equal (Minus (Num 5,Num 2),Num 3) => true;
Not (Not (Not (Not (Imply (True, True))))) => true;
AndAlso (OrElse(True, False), Not (Imply (True, False))) => true;
Not (Imply (AndAlso (False, True), OrElse (False, False))) => false;
Equal (Plus (Minus (Num 4, Num 5), Minus (Num 1, Num (-1))), Plus (Minus (Num 3, Num (-5)), Plus (Num 4, Num 5))) => false;
OrElse (Equal (Minus (Num 3, Num 4), Plus (Num 3, Num 4)), AndAlso (Not (True), True)) => false;
AndAlso (AndAlso(True, True), AndAlso (Not (AndAlso (True, False)), Not (OrElse (False, False)))) => true;
OrElse (True, True) => true;
OrElse (True, Not True) => true;
Equal (Num 1, Plus (Num 0, Num 1)) => true;
AndAlso ((True, Not (True))) => false;
OrElse ((False, Not (False))) => true;
Imply (False, True) => true;
Not (Not (Not (True))) => false;
Not (AndAlso ((True, Not (False)))) => false;
}
12 changes: 12 additions & 0 deletions OCaml/formula-14/metadata.json
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
{
"language": "ocaml",
"id": "formula-14",

"buggyPath": "buggy",
"referencePath": null,

"buildCommand": "ocamlc src.ml",
"testCommand": null,

"categories": ["functional"]
}
2 changes: 2 additions & 0 deletions OCaml/formula-15/.dockerignore
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
.dockerignore
Dockerfile
6 changes: 6 additions & 0 deletions OCaml/formula-15/Dockerfile
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
FROM ghcr.io/sambyeol/ocaml-devcontainer:4.14.1-debian-root

USER root
RUN mkdir -p /workspace
WORKDIR /workspace
COPY . /workspace
0 functional/OCaml/formula/bugs/bug_15/bug.ml → OCaml/formula-15/buggy/src.ml
View file
Open in desktop
File renamed without changes.
20 changes: 20 additions & 0 deletions OCaml/formula-15/buggy/testcases
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
{
Imply (Not False,Not False) => true;
Imply (Not False,AndAlso (True,False)) => false;
Imply (False, False) => true;
Equal (Minus (Num 5,Num 2),Num 3) => true;
Not (Not (Not (Not (Imply (True, True))))) => true;
AndAlso (OrElse(True, False), Not (Imply (True, False))) => true;
Not (Imply (AndAlso (False, True), OrElse (False, False))) => false;
Equal (Plus (Minus (Num 4, Num 5), Minus (Num 1, Num (-1))), Plus (Minus (Num 3, Num (-5)), Plus (Num 4, Num 5))) => false;
OrElse (Equal (Minus (Num 3, Num 4), Plus (Num 3, Num 4)), AndAlso (Not (True), True)) => false;
AndAlso (AndAlso(True, True), AndAlso (Not (AndAlso (True, False)), Not (OrElse (False, False)))) => true;
OrElse (True, True) => true;
OrElse (True, Not True) => true;
Equal (Num 1, Plus (Num 0, Num 1)) => true;
AndAlso ((True, Not (True))) => false;
OrElse ((False, Not (False))) => true;
Imply (False, True) => true;
Not (Not (Not (True))) => false;
Not (AndAlso ((True, Not (False)))) => false;
}
12 changes: 12 additions & 0 deletions OCaml/formula-15/metadata.json
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
{
"language": "ocaml",
"id": "formula-15",

"buggyPath": "buggy",
"referencePath": null,

"buildCommand": "ocamlc src.ml",
"testCommand": null,

"categories": ["functional"]
}
2 changes: 2 additions & 0 deletions OCaml/formula-16/.dockerignore
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
.dockerignore
Dockerfile
6 changes: 6 additions & 0 deletions OCaml/formula-16/Dockerfile
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
FROM ghcr.io/sambyeol/ocaml-devcontainer:4.14.1-debian-root

USER root
RUN mkdir -p /workspace
WORKDIR /workspace
COPY . /workspace
0 functional/OCaml/formula/bugs/bug_16/bug.ml → OCaml/formula-16/buggy/src.ml
View file
Open in desktop
File renamed without changes.
20 changes: 20 additions & 0 deletions OCaml/formula-16/buggy/testcases
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
{
Imply (Not False,Not False) => true;
Imply (Not False,AndAlso (True,False)) => false;
Imply (False, False) => true;
Equal (Minus (Num 5,Num 2),Num 3) => true;
Not (Not (Not (Not (Imply (True, True))))) => true;
AndAlso (OrElse(True, False), Not (Imply (True, False))) => true;
Not (Imply (AndAlso (False, True), OrElse (False, False))) => false;
Equal (Plus (Minus (Num 4, Num 5), Minus (Num 1, Num (-1))), Plus (Minus (Num 3, Num (-5)), Plus (Num 4, Num 5))) => false;
OrElse (Equal (Minus (Num 3, Num 4), Plus (Num 3, Num 4)), AndAlso (Not (True), True)) => false;
AndAlso (AndAlso(True, True), AndAlso (Not (AndAlso (True, False)), Not (OrElse (False, False)))) => true;
OrElse (True, True) => true;
OrElse (True, Not True) => true;
Equal (Num 1, Plus (Num 0, Num 1)) => true;
AndAlso ((True, Not (True))) => false;
OrElse ((False, Not (False))) => true;
Imply (False, True) => true;
Not (Not (Not (True))) => false;
Not (AndAlso ((True, Not (False)))) => false;
}
Loading