From 6b0c875bb24877acb3ffe9880781428bc286183a Mon Sep 17 00:00:00 2001
From: Reimar <mail@reim.ar>
Date: Tue, 4 Mar 2025 22:19:41 +0100
Subject: [PATCH] Initial commit
---
phpfrick.php | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 48 insertions(+)
create mode 100644 phpfrick.php
diff --git a/phpfrick.php b/phpfrick.php
new file mode 100644
index 0000000..21dfeeb
--- /dev/null
+++ b/phpfrick.php
@@ -0,0 +1,48 @@
+#!/bin/env php
+<?php
+
+function frick(string $str) {
+ $n = [];
+ $n[1] = "(['']||[])";
+ $n[2] = "(" . $n[1] . "+" . $n[1] . ")";
+ $n[3] = "(" . $n[1] . "+" . $n[1] . "+" . $n[1] . ")";
+ $n[4] = "(" . $n[2] . "*" . $n[2] . ")";
+ $n[5] = "(" . $n[2] . "*" . $n[2] . "+" . $n[1] . ")";
+ $n[6] = "(" . $n[3] . "*" . $n[2] . ")";
+ $n[7] = "(" . $n[3] . "*" . $n[2] . "+" . $n[1] . ")";
+ $n[9] = "(" . $n[3] . "**" . $n[2] . ")";
+ $n[0] = "(" . $n[1] . "-" . $n[1] . ")";
+
+ $arraystr = "([].[])"; // ArrayArray
+
+ $c = [];
+ foreach ($n as $number => $code) {
+ $c[(string)$number] = $code . ".[]['']";
+ }
+
+ $c['A'] = $arraystr . "[" . $n[0] . "]";
+ $c['a'] = $arraystr . "[" . $n[3] . "]";
+ $c['d'] = $c['1'] . "^" . $c['4'] . "^" . $c['a'];
+ $c['e'] = $c['0'] . "^" . $c['4'] . "^" . $c['a'];
+ $c['p'] = $c['A'] . "^" . $c['1'];
+ $c['q'] = $c['A'] . "|" . $c['1'];
+ $c['r'] = $arraystr . "[" . $n[1] . "]";
+ $c['s'] = $c['A'] . "|" . $c['2'];
+ $c['t'] = $c['A'] . "^" . $c['5'];
+ $c['u'] = $c['A'] . "|" . $c['4'];
+ $c['v'] = $c['A'] . "^" . $c['7'];
+ $c['w'] = $c['A'] . "|" . $c['6'];
+ $c['x'] = $c['A'] . "^" . $c['9'];
+ $c['y'] = $arraystr . "[" . $n[4] . "]";
+
+ $c['f'] = $c['4'] . "^" . $c['A'] . "^" . $c['r'] . "^" . $c['y'];
+
+ $chars = [];
+ foreach (str_split($str) as $char) {
+ $chars[] = $c[$char];
+ }
+ return "(" . implode(").(", $chars) . ")";
+}
+
+echo frick("read");
+