[1,2,3].reduce( (total, val) => total + val, 0 );
جافاسكربت es6
// JavaScript
var pow = (x, n) => {
if (n === 0)
return x === 0 ? NaN : 1;
if (n === 1)
return x;
if (n === 2)
return x * x;
if (n % 2 === 0)
return pow(pow(x, n / 2), 2);
return x * pow(pow(x, (n - 1) / 2), 2);
};
console.log(pow(0.999999999999999, 693701640907261));
// 0.4999999981379348
مثل Math.pow الموجودة مسبقا في جافاسكربت
لحساب x أس n
x^n
فقط يجب أن يكون n عددا صحيحا وليس به فاصلة
والخوارزمية المتبعة ناتجة عن العلاقة
n = 2k
-> x^n = (x^(n/2))^2
n = 2k + 1
-> x^n = x * (x^((n-1)/2))^2
@zakariamouhid هل توجد صيغة لوضع فاصلة أو نقطة بين كلمات نص تلقائيا ، أحتاجه لبرمجة انشاء الكلمات الدلالية.
كود CSS بسيط لقلب ينبض ؛ يمكنك أستخدامه في الحقوق مثل وضع ( صنع بحب في معامل فلان)
جميل وهذه تجربة مباشرة من جهازي فوراً :
تم إيقاف سيرفر يوندوز ، وهنا للتجربة سيرفر لينكس على جهازي :
هذا كود دالة لحساب مضروب عدد طبيعي بلغة LUA
function factorial(n)
s=1;
for i=1,n do
s=s*i
end
return s
end
قبل كل سطر في الكود أضف 4 مسافات
ولتسهيل العملية يمكنك أخد الكود كاملا ووضعه في محرر نصوص وتحديد الكود كاملا وضغط tab
لقد قمت بتجريب طريقتك أخي zakariamouhid هنا
function nbr(a)
ver = 0
result = 1
La = String.Length(""..a);
sharp = String.Mid(""..a, 1, 1);
sharpascii = String.Asc(""..sharp);
if sharp~="+" and sharp~="-" then
if sharpascii < 48 or sharpascii > 57 then
result = -1
end
end
for i=2,La do
shar = String.Mid(""..a, i, 1);
sharasc = String.Asc(""..shar);
if sharasc == 46 then
ver = ver+1
end
if sharasc < 48 and sharasc~=46 then
result = -1
end
if sharasc > 57 then
result = -1
end
end
if ver ~= 0 and ver ~= 1 then
result = -1
end
if ver==1 then
res = String.Find(""..a, ".", 1, false);
if res == La then
result = -1
end
end
return result
end
هل هذه اللغة التي كتبت بها لا توجد بها مسافات قبل بعض الأسطر لتسهيل القراءة ؟
مثل
function nbr(a)
ver = 0
result = 1
La = String.Length(""..a);
sharp = String.Mid(""..a, 1, 1);
sharpascii = String.Asc(""..sharp);
if sharp~="+" and sharp~="-" then
if sharpascii < 48 or sharpascii > 57 then
result = -1
حاليا اتعلم Haskell وهذه بعض الأكواد
quicksort
qsort [] = []
qsort (p:xs) = qsort [x | x <- xs, x < p] ++ [p] ++ qsort [x | x <- xs, x >= p]
collatz sequence
cseq :: Int -> [Int]
cseq 1 = [1]
cseq n
| even n = n:cseq(n `div` 2)
| odd n = n:cseq(n * 3 + 1)
factorial
fact :: Int -> Int
fact n
| n <= 1 = 1
| otherwise = n * fact (n - 1)
reverse polish notation
import Data.List
solveRPN :: String -> Int
solveRPN xs = head (foldl func [] (words xs))
where
func (x:y:xs) "+" = (x + y:xs)
func (x:y:xs) "*" = (x * y:xs)
func (x:y:xs) "-" = (x - y:xs)
func (x:y:xs) "/" = (x `div` y:xs)
func xs number = (read number:xs)
Fibonacci
fib :: Int -> Int
fib n
| n < 2 = n
| otherwise = fib(n - 1) + fib(n - 2)
التعليقات